Wizard I
Emulation Item Preview
Share or Embed This Item
Notes
Disk info for Wizard_I_1980_Highlands_Computer_Services.do:
File Name: a2_Wizard_I_1980_Highlands_Computer_Services/Wizard_I_1980_Highlands_Computer_Services.do
Disk Name: DISK VOLUME #254
Physical Size (bytes): 143360
Free Space (bytes): 28160
Used Space (bytes): 115200
Physical Size (KB): 140
Free Space (KB): 27
Used Space (KB): 112
Archive Order: DOS
Disk Format: DOS 3.3
Total Sectors: 560
Free Sectors: 110
Used Sectors: 450
Tracks On Disk: 35
Sectors On Disk: 16
Disk directory for Wizard_I_1980_Highlands_Computer_Services.do:
a2_Wizard_I_1980_Highlands_Computer_Services/Wizard_I_1980_Highlands_Computer_Services.do DISK VOLUME #254
* A 006 HELLO
* A 002 WIZ.MAKER
* T 002 WIZ
* B 022 WIZ.SHAPES
* A 085 WIZARD1
* B 003 CHAIN
* A 002 COPYRIGHTED 1980 (C) H.C.S.
* A 007 WIZDIM
* A 083 WIZARD2
* A 076 WIZARD3
* A 081 WIZARD4
* A 014 WIZEND
T 003 WIZ.SAVE
DOS 3.3 format; 28,160 bytes free; 115,200 bytes used.
Text found in Wizard_I_1980_Highlands_Computer_Services.do/CHAIN.txt:
Offset Hex Data Characters
======= ================================================ =================
$000000 20 85 03 20 A6 03 A9 07 85 8F A5 69 A6 6A 85 9D .. &.). ..%i&j..
$000010 86 9E E4 6C D0 04 C5 6B F0 05 20 7E 02 F0 F3 85 ..dlP.Ek p. ~.ps.
$000020 9F 86 A0 A9 03 85 8F A5 9F A6 A0 E4 6E D0 07 C5 .. )...% .& dnP.E
$000030 6D D0 03 4C E0 02 85 9D 86 9E A0 00 B1 9D AA C8 mP.L`... .. .1.*H
$000040 B1 9D 08 C8 B1 9D 65 9F 85 9F C8 B1 9D 65 A0 85 1..H1.e. ..H1.e .
$000050 A0 28 10 D3 8A 30 D0 C8 B1 9D A0 00 0A 69 05 65 (.S.0PH 1. ..i.e
$000060 9D 85 9D 90 02 E6 9E A6 9E E4 A0 D0 04 C5 9F F0 .....f.& .d P.E.p
$000070 BA 20 88 02 F0 F3 B1 9D 30 46 C8 B1 9D 10 41 C8 : ..ps1. 0FH1..AH
$000080 B1 9D F0 3C C8 B1 9D AA C8 B1 9D 85 9C 86 9B C5 1.p5!.<5
$000160 69 95 42 CA F0 EF A0 00 20 2C FE 6C AE 03 18 B5 i.BJpo . ,~l...5
$000170 00 65 9D 95 71 E8 B5 00 65 9E 95 71 60 AD 00 E0 .e..qh5. e..q`-.`
$000180 A0 0B C9 4C F0 02 A0 17 A2 0B B9 B8 03 9D AC 03 .ILp. . ".98..,.
$000190 88 CA 10 F6 60 6C AC 03 6C B2 03 6C B0 03 6C B4 .J.v`l,. l2.l0.l4
$0001A0 03 6C B6 03 00 00 00 00 00 00 00 00 00 00 00 00 .l6..... ........
$0001B0 65 D6 D2 D7 FB DA 5C DB 84 E4 9A D3 65 0E D4 0F eVRW{Z\[ .d.Se.T.
$0001C0 FC 12 5F 13 7B 1C 9A 0B .. .. .. .. .. .. .. .. |._.{...
** END **
Text found in Wizard_I_1980_Highlands_Computer_Services.do/HELLO.bas:
10 TEXT : HOME
20 PRINT "WIZARD PLAYER:"
30 PRINT "THE CAVE SYSTEM IN WIZARD IS RATHER"
40 PRINT "LARGE AND THERE ARE MANY INTERSECTIONS"
50 PRINT "BRANCHES, UPS, DOWNS, ETC., BECAUSE"
60 PRINT "THIS CAN BE SOMEWHAT CONFUSING AT TIMES"
70 PRINT "IT IS RECOMMENDED THAT AS YOU PLAY YOU"
80 PRINT "ALSO BEGIN TO DRAW YOUR OWN MAPS TO"
90 PRINT "BETTER SEE THE LAYOUT OF THE CAVES THUS"
100 PRINT "HELPING YOU TO EXPLORE MORE EASILY."
110 PRINT "ONCE YOU ARE ABLE TO CROSS THE TOLL "
120 PRINT "BRIDGE THERE IS NO NEED TO RETURN,"
130 PRINT "HOWEVER THIS IS NOT TRUE OF THE THREE"
140 PRINT "REMAINING SECTIONS OF THE GAME, THAT"
150 PRINT "WILL DEPEND ON HOW WELL YOU PLAY"
160 PRINT : PRINT : PRINT TAB( 20)"THANK YOU": PRINT : PRINT TAB( 30)"H.C.S."
170 PRINT "HIT ANY KEY TO CONTINUE"
180 GET A$: PRINT A$
190 HCOLOR= 7: HGR
200 FOR I = 1 TO 270 STEP 4: HCOLOR= 7: HPLOT 1 +I,0 TO 1 +I,159: HCOLOR= 5: HPLOT 2 +I,0 TO 2 +I,159: HCOLOR= 2: HPLOT 3 +I,0 TO 3 +I,159: HCOLOR= 6: HPLOT 4 +I,0 TO 4 +I,159:: HCOLOR= 1: HPLOT 5 +I,0 TO 5 +I,159: NEXT
210 HCOLOR= 0
220 FOR I = 1 TO 5
230 HPLOT 100 +I,70 TO 120 +I,70 TO 100 +I,90 TO 120 +I,90
240 NEXT
250 FOR I = 1 TO 5
260 HPLOT 20 +I,70 TO 30 +I,90 TO 40 +I,80 TO 50 +I,90 TO 60 +I,70: HPLOT 80 +I,70 TO 80 +I,90: HPLOT 135 +I,90 TO 150 +I,70 TO 165 +I,90: HPLOT 185 +I,90 TO 185 +I,70 TO 200 +I,70 TO 200 +I,80 TO 185 +I,80 TO 200 +I,90
270 HPLOT 220 +I,90 TO 220 +I,70 TO 230 +I,70 TO 235 +I,75 TO 235 +I,85 TO 230 +I,90 TO 220 +I,90
280 HPLOT 130 +I,120 TO 130 +I,140
290 NEXT
300 HPLOT 150,80 TO 160,80
310 PRINT CHR$(4);"EXEC WIZ"
Text found in Wizard_I_1980_Highlands_Computer_Services.do/WIZ.MAKER.bas:
10 D$ = CHR$(4)
20 PRINT D$;"OPEN WIZ"
30 PRINT D$;"WRITE WIZ"
40 PRINT "POKE16384,0"
50 PRINT "POKE16385,0"
60 PRINT "POKE16386,0"
70 PRINT "POKE103,01"
80 PRINT "POKE104,64"
90 PRINT "NEW"
100 PRINT "RUN WIZDIM"
110 PRINT D$;"CLOSE WIZ"
120 END
Text found in Wizard_I_1980_Highlands_Computer_Services.do/WIZ.SAVE.txt:
91
50
84
3
GLADIATOR
0
1
2
1
1
1
1
1
2
0
0
0
0
0
0
0
1
1
1
0
1
1
1
1
1
1
READ
DECI
TRAN
DECO
SPEA
LIST
PICK
UNLO
OPEN
PRY
ATTA
KILL
FIGH
PUNC
LIFT
PUSH
MOVE
BREA
SMAS
1
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
4
4
4
4
4
4
4
2
0
0
0
0
0
0
0
0
0
0
0
0
0
Text found in Wizard_I_1980_Highlands_Computer_Services.do/WIZ.txt:
POKE16384,0
POKE16385,0
POKE16386,0
POKE103,01
POKE104,64
NEW
RUN WIZDIM
Text found in Wizard_I_1980_Highlands_Computer_Services.do/WIZARD1.bas:
10 GAME = 0: GOTO 900
100 INPUT A$
110 IF A$ = "C" THEN GOSUB 470: POKE 34,20: HOME : POKE -16304,0: GOTO 100
120 IF A$ = "QUIT" OR A$ = "SAVE" OR A$ = "STOP" OR A$ = "END" THEN GOTO 62055
130 IF A$ < >"" THEN GOTO 310
140 TEXT
150 HOME
160 POKE -16300,0
170 POKE -16303,0
180 PRINT TAB( 15)"POINTS =";PTS
190 PRINT TAB( 15)"MOVES =";MOVE
200 PRINT TAB( 15)"STRENGTH=";ST
210 PRINT TAB( 15)"CHAR =";CH$
220 PRINT "YOU ARE CARRYING:"
230 PRINT
240 IF GT >0 THEN PRINT GT;" GOLD COINS"
250 IF IT(1) = 1 THEN PRINT "POWERFUL SWORD"
260 INPUT A$
270 IF A$ = "QUIT" OR A$ = "SAVE" OR A$ = "STOP" OR A$ = "END" THEN GOTO 62055
280 POKE 34,20: HOME
290 POKE -16304,0
300 GOTO 100
310 MOVE = MOVE +1
320 IF LEFT$(A$,4) = "CAST" AND CH < >7 THEN PRINT "THAT IS NOT WITHIN THE ";CH$;"'S POWER": GOTO 100
330 IF LEFT$(A$,5) = "MAGIC" AND CH < >5 THEN PRINT "THAT IS NOT WITHIN THE ";CH$;"'S POWER": GOTO 100
340 FOR I = 1 TO 6: IF LEFT$(A$,4) = C1$(I) AND CH < >1 THEN GOTO 430
350 NEXT I
360 FOR I = 1 TO 4: IF LEFT$(A$,4) = C2$(I) AND CH < >2 THEN GOTO 430
370 NEXT I
380 FOR I = 1 TO 4: IF LEFT$(A$,4) = C3$(I) AND CH < >3 THEN GOTO 430
390 NEXT I
400 FOR I = 1 TO 5: IF LEFT$(A$,4) = C4$(I) AND CH < >4 THEN GOTO 430
410 NEXT I
420 RETURN
430 PRINT "THAT IS NOT WITHIN THE ";CH$;"'S POWER": GOTO 100
440 IF LEN(A$) = 1 THEN PRINT "CHOOSE ANOTHER DIRECTION": RETURN
450 IF LEFT$(A$,3) = "GET" THEN PRINT "DON,T BE RIDICULOUS": RETURN
460 PRINT "I CAN'T DO THAT HERE": RETURN
470 TEXT : HOME : POKE -16300,0: POKE -16303,0: PRINT TAB( 15)"POINTS ="PTS
480 PRINT TAB( 15)"MOVES =";MOVE
490 PRINT TAB( 15)"STRENGTH=";ST
500 PRINT TAB( 15)"CHAR =";CH$
510 PRINT
520 PRINT TAB( 15)"1.CLERIC ";C1
530 PRINT TAB( 15)"2.THIEF ";C2
540 PRINT TAB( 15)"3.GLADIATOR ";C3
550 PRINT TAB( 15)"4.STRONGMAN ";C4
560 PRINT TAB( 15)"5.MAGICIAN ";C5
570 PRINT TAB( 15)"6.ELF ";C6
580 PRINT TAB( 15)"7.WIZARD ";C7
590 PRINT
600 IF CH$ = "????" THEN PRINT "YOU MUST CHOOSE A CHARACTER TO START AS"
610 PRINT "WHAT CHARACTER DO YOU WISH TO CHANGE TO?": PRINT " ENTER 1 THRU 7 ONLY C/R=RETURN"
620 INPUT A$:CK = VAL(A$): IF A$ = "" AND CH$ < >"????" THEN RETURN
630 IF CK <1 OR CK >7 THEN PRINT "I DON,T SEE A ";A$;" CHOICE": CALL 65338: CALL 65338: CALL 65338: FOR X = 1 TO 1000: NEXT : GOTO 470
640 CH = CK
650 IF CH = 1 AND C1 < >0 THEN C1 = C1 -1:CH$ = "CLERIC": GOTO 730
660 IF CH = 2 AND C2 < >0 THEN C2 = C2 -1:CH$ = "THIEF": GOTO 730
670 IF CH = 3 AND C3 < >0 THEN C3 = C3 -1:CH$ = "GLADIATOR": GOTO 730
680 IF CH = 4 AND C4 < >0 THEN C4 = C4 -1:CH$ = "STRONGMAN": GOTO 730
690 IF CH = 5 AND C5 < >0 THEN C5 = C5 -1:CH$ = "MAGICIAN": GOTO 730
700 IF CH = 6 AND C6 < >0 THEN C6 = C6 -1:CH$ = "ELF": GOTO 730
710 IF CH = 7 AND C7 < >0 THEN C7 = C7 -1:CH$ = "WIZARD": GOTO 730
720 PRINT "YOU HAVE USED UP THAT GUY!!": CALL 65338: CALL 65338: CALL 65338: FOR I = 1 TO 1000: NEXT : GOTO 470
730 ST = ST -2: IF ST <1 THEN GOTO 750
740 RETURN
750 REM
760 REM
770 PRINT "THIS WILL BE YOUR FINAL RESTING PLACE"
780 PRINT "GAME OVER!! STRENGTH = 000": END
790 HPLOT 1 +G,0 +H TO 5 +G,0 +H TO 5 +G,15 +H TO 1 +G,15 +H TO 1 +G,0 +H: HPLOT 1 +G,3 +H TO 5 +G,3 +H: HPLOT 1 +G,6 +H TO 5 +G,6 +H: HPLOT 1 +G,10 +H TO 5 +G,10 +H: RETURN
900 FOR I = 1 TO 22: READ A: POKE 767 +I,A: NEXT
910 FOR I = 1 TO 19: READ A: POKE 799 +I,A: NEXT
920 DATA 160,14,162,00,138,24,233,01,208,252,141,48,192,232,224,140,208,242,136,208,237,96
930 DATA 173,48,192,136,208,4,198,1,240,8,202,208,246,166,0,76,32,03,96
940 GOSUB 470
1000 GOSUB 60000
1005 HPLOT 0,120 TO 40,120: HPLOT 40,0 TO 40,125 TO 115,120: HPLOT 160,120 TO 240,125 TO 240,0: HPLOT 240,120 TO 279,120
1010 ROT= 16: SCALE= 8: DRAW 15 AT 117,40
1015 SCALE= 1: ROT= 0: DRAW 17 AT 50,50: DRAW 18 AT 230,50
1020 IF OB(1) = 0 THEN GOSUB 1065
1025 PRINT "YOU'RE JOURNEY WILL BEGIN HERE"
1026 PRINT "THERE IS A PASSAGE DOWN"
1030 GOSUB 100
1035 IF A$ = "UNLOCK" AND OB(1) < >0 OR A$ = "OPEN" AND OB(1) < >0 THEN PRINT "ITS OPEN ";NA$
1040 IF A$ = "D" AND OB(1) = 0 THEN PRINT "THE DOOR IS LOCKED": GOTO 1030
1045 IF LEFT$(A$,4) = "UNLO" THEN OB(1) = 1: HCOLOR= 0: GOSUB 1065: HCOLOR= 3: GOTO 1030
1046 IF LEFT$(A$,4) = "CAST" AND OB(1) = 0 THEN GOTO 1090
1050 IF A$ = "OPEN" AND OB(1) = 0 THEN PRINT "ITS LOCKED ";NA$: GOTO 1030
1055 IF A$ = "D" THEN GOTO 1100
1060 GOSUB 440: GOTO 1030
1065 HPLOT 118,55 TO 156,55: HPLOT 118,65 TO 156,65: HPLOT 118,95 TO 156,95: HPLOT 118,105 TO 156,105: HPLOT 128,60: HPLOT 138,60: HPLOT 148,60: HPLOT 128,100: HPLOT 138,100: HPLOT 148,100: RETURN
1090 HCOLOR= 3: SCALE= 1: FOR I = 0 TO 64 STEP 16: POKE 771,I: POKE 769,03: CALL 768: ROT= I: DRAW 19 AT 140,50: FOR X = 1 TO 100: NEXT X: XDRAW 19 AT 140,50: NEXT I
1091 OB(1) = 1:ST = ST -10: IF ST <1 THEN GOTO 750
1092 REM FALL THRU
1100 GOSUB 60000: GOSUB 1105: GOTO 1110
1105 DRAW 16 AT 20,0: DRAW 12 AT 70,0: DRAW 16 AT 150,0: ROT= 32: DRAW 13 AT 40,158: HPLOT 0,90 TO 195,90: HPLOT 213,90 TO 226,90: HPLOT 257,90 TO 279,90: DRAW 16 AT 50,88: DRAW 12 AT 110,88: DRAW 13 AT 270,120
1106 RETURN
1110 PRINT "YOU ARE NOW ENTERING ARMADIE'S CAVERNS"
1115 GOSUB 100
1120 IF A$ = "U" THEN GOTO 1000
1123 IF A$ = "E" THEN GOTO 1600
1125 IF A$ = "W" THEN GOTO 1200
1127 IF A$ = "D" THEN GOTO 2200
1130 GOSUB 440: GOTO 1115
1200 GOSUB 60000
1205 DRAW 13 AT 160,0: DRAW 13 AT 240,0: DRAW 12 AT 50,0: ROT= 32: DRAW 13 AT 50,130: DRAW 16 AT 92,110: DRAW 16 AT 140,100: DRAW 12 AT 250,110: HPLOT 30,159 TO 150,100 TO 160,100 TO 140,159
1210 PRINT "THIS IS THE EVERY WHICHWAY JUNCTION"
1215 GOSUB 100
1220 IF A$ = "E" THEN GOTO 1100
1225 IF A$ = "S" THEN GOTO 1300
1226 IF A$ = "U" THEN GOTO 1400
1227 IF A$ = "D" THEN GOTO 1500
1228 IF A$ = "N" THEN GOTO 2100
1230 GOSUB 440: GOTO 1215
1300 GOSUB 60000
1301 GOSUB 1305: GOTO 1315
1305 DRAW 16 AT 10,0: DRAW 12: DRAW 13: DRAW 12: DRAW 17 AT 15,75
1310 HPLOT 0,130 TO 50,100 TO 50,20: HPLOT 50,90 TO 80,70 TO 80,8: HPLOT 80,60 TO 110,40 TO 110,10: HPLOT 110,35 TO 128,20: HPLOT 30,159 TO 90,110 TO 90,159: HPLOT 90,110 TO 100,110 TO 100,159: HPLOT 100,110 TO 160,70 TO 160,159: HPLOT 160,70 TO 170,70 TO 170,159: HPLOT 170,70 TO 279,10
1311 RETURN
1315 PRINT "YOU ARE PROCEEDING ALONG A NARROW LEDGE"
1320 GOSUB 100
1325 IF A$ = "N" THEN GOTO 1200
1326 IF A$ = "S" THEN GOTO 3100
1330 GOSUB 440: GOTO 1320
1400 GOSUB 60000
1405 ROT= 32: DRAW 13 AT 120,159: DRAW 13: DRAW 13: HPLOT 20,115 TO 70,40 TO 279,40: HPLOT 70,40 TO 70,0: ROT= 0: DRAW 16 AT 20,0: DRAW 16: DRAW 16
1410 PRINT "DEAD END"
1420 IF GL(1) = 0 THEN PRINT "YOU HAVE FOUND 5 GOLD COINS"
1430 IF GL(1) = 0 THEN GL(1) = 1:G = 120:H = 80: HCOLOR= 5: GOSUB 790: GOSUB 62500: HCOLOR= 0: GOSUB 790: HCOLOR= 5: GOSUB 790: GOSUB 62500: HCOLOR= 0: GOSUB 790:PTS = PTS +5:GT = GT +5
1460 GOSUB 100
1465 IF A$ = "D" THEN GOTO 1200
1489 GOSUB 440: GOTO 1460
1500 GOSUB 60000
1510 ROT= 32: DRAW 16 AT 120,159: DRAW 16: DRAW 16: HPLOT 00,130 TO 70,90 TO 279,90: HPLOT 70,90 TO 70,10: ROT= 0: DRAW 13 AT 20,0: DRAW 13: DRAW 13
1520 PRINT "DEAD END"
1522 IF GL(2) = 0 THEN PRINT "YOU HAVE FOUND 5 GOLD COINS"
1524 IF GL(2) = 0 THEN GL(2) = 1:G = 120:H = 99: HCOLOR= 5: GOSUB 790: GOSUB 62500: HCOLOR= 0: GOSUB 790: HCOLOR= 5: GOSUB 790: GOSUB 62500: HCOLOR= 0: GOSUB 790:PTS = PTS +5:GT = GT +5
1530 GOSUB 100
1540 IF A$ = "U" THEN GOTO 1200
1550 GOSUB 440: GOTO 1530
1600 GOSUB 60000
1605 ROT= 32: DRAW 12 AT 30,159: DRAW 13: DRAW 12 AT 90,60: DRAW 16: DRAW 13 AT 80,125: DRAW 16 AT 230,90: ROT= 0: DRAW 12 AT 20,0: DRAW 12: DRAW 12: DRAW 12: HCOLOR= 5: FOR I = 1 TO 30: HPLOT 70 +(I *3),158 TO 140 +I,50: NEXT I
1630 HPLOT 83,50 TO 270,50: HPLOT 79,50 TO 71,50: HPLOT 40,50 TO 20,50: HPLOT 10,50 TO 3,50
1640 PRINT "THE CAVES CONTINUE ON ";NA$
1690 GOSUB 100
1695 IF A$ = "W" THEN GOTO 1100
1696 IF A$ = "E" THEN GOTO 1700
1697 IF A$ = "D" THEN GOTO 2000
1698 IF A$ = "S" THEN GOTO 2800
1699 GOSUB 440: GOTO 1690
1700 GOSUB 60000
1705 GOSUB 1305: ROT= 32: DRAW 13 AT 278,158: DRAW 8 AT 50,110: DRAW 9 AT 80,80: ROT= 16: DRAW 9 AT 95,60: ROT= 32: DRAW 8 AT 120,55
1710 PRINT "YOU ARE GOING ALONG A ROCKY PATH"
1715 GOSUB 100
1720 IF LEFT$(A$,8) = "GET ROCK" THEN PRINT "FORGET IT ";NA$;", YOU WON,T NEED EM": GOTO 1715
1725 IF LEFT$(A$,4) = "CAST" THEN POKE 783,200: POKE 769,1: POKE 771,20: CALL 768: PRINT "BIG DEAL!": GOTO 1715
1730 IF A$ = "W" THEN GOTO 1600
1731 IF A$ = "S" THEN GOTO 1800
1732 IF A$ = "N" THEN GOTO 1900
1735 IF LEFT$(A$,4) = "LIFT" THEN PRINT "YOU CAN'T. LETS GET MOVING ";NA$: GOTO 1715
1740 IF LEFT$(A$,5) = "THROW" THEN PRINT "YOU CAN'T EVEN LIFT EM ";NA$: GOTO 1715
1750 GOSUB 440: GOTO 1715
1800 GOSUB 60000: GOSUB 1805: GOSUB 1812: GOTO 1815
1805 ROT= 16: SCALE= 2: DRAW 15 AT 120,90: HPLOT 120,90 TO 30,30 TO 30,132: HPLOT 230,20 TO 130,90: HPLOT 245,15 TO 245,125
1810 HPLOT 50,140 TO 120,110: HPLOT 200,130 TO 130,110: ROT= 32: SCALE= 1: DRAW 13 AT 278,158: DRAW 16: DRAW 12 AT 70,158: ROT= 0: DRAW 12 AT 5,1: DRAW 13: DRAW 16: DRAW 12: RETURN
1812 DRAW 17 AT 30,100: DRAW 18 AT 245,100: RETURN
1815 PRINT "THE PASSAGE IS GROWING VERY SMALL"
1820 GOSUB 100
1825 IF A$ = "N" THEN GOTO 1700
1830 IF A$ = "S" AND CH < >6 THEN PRINT "YOU CAN'T FIT THRU THERE YOU BIG PALOOKA": GOTO 1820
1835 IF A$ = "S" THEN GOTO 2500
1840 IF LEFT$(A$,4) = "CAST" THEN POKE 783,250: POKE 769,2: POKE 771,250: CALL 768: PRINT "NOW WHAT ACE?": GOTO 1820
1845 GOSUB 440: GOTO 1820
1900 GOSUB 60000
1910 GOSUB 1960
1930 GOSUB 100
1940 IF A$ = "S" THEN GOTO 1700
1950 GOSUB 440: GOTO 1930
1960 DRAW 13 AT 279,0: DRAW 13: DRAW 13: ROT= 32: DRAW 13 AT 0,159: DRAW 13: DRAW 13: PRINT "SORRY, DEAD END ";NA$: RETURN
2000 GOSUB 60000: GOSUB 1960
2010 GOSUB 100
2020 IF A$ = "U" THEN GOTO 1600
2030 GOSUB 440: GOTO 2010
2100 GOSUB 60000: GOSUB 1960
2110 GOSUB 100
2120 IF A$ = "S" THEN GOTO 1200
2130 GOSUB 440: GOTO 2110
2200 GOSUB 60000
2205 HCOLOR= 2: FOR I = 1 TO 130 STEP 10: HPLOT 181 -I,10 +I TO 181 -I,20 +I TO 171 -I,20 +I: HPLOT 181 -I,10 +I TO 200,35 +I: NEXT : HPLOT 181,10 TO 200,10: HPLOT 61,140 TO 151,159: HPLOT 61,141 TO 0,141
2210 HCOLOR= 3: HPLOT 200,0 TO 200,159: DRAW 18 AT 250,75: DRAW 13 AT 30,0
2220 PRINT "YOU ARE IN A SECRET STAIRWAY"
2230 GOSUB 100
2240 IF A$ = "U" THEN GOTO 1100
2250 IF A$ = "D" THEN GOTO 2300
2260 GOSUB 440: GOTO 2230
2300 GOSUB 60000
2310 FOR I = 1 TO 100 STEP 10:X = X +5: HPLOT 130 -X,50 +I TO 130 -X,60 +I TO 125 -X,60 +I: HPLOT 130 -X,60 +I TO 140 +X,60 +I: HPLOT 140 +X,50 +I TO 140 +X,60 +I TO 145 +X,60 +I: NEXT I
2320 HPLOT 0,150 TO 279,150: HPLOT 20,150 TO 20,0: HPLOT 250,150 TO 250,0
2321 HPLOT 125,50 TO 125,30 TO 145,30 TO 145,50
2330 DRAW 12 AT 25,0: DRAW 16: DRAW 16: DRAW 12: ROT= 48: DRAW 16 AT 23,120: DRAW 12: ROT= 16: DRAW 12 AT 247,10: DRAW 16: ROT= 32: DRAW 12 AT 80,148: DRAW 16 AT 250,148
2340 ROT= 0: HCOLOR= 3: DRAW 17 AT 50,70: DRAW 18 AT 220,60
2350 PRINT "THE STAIRS CONTINUE ON"
2360 GOSUB 100
2370 IF A$ = "U" THEN GOTO 2200
2380 IF A$ = "D" THEN GOTO 2400
2390 GOSUB 440: GOTO 2360
2400 GOSUB 60000
2410 HPLOT 0,100 TO 279,100: HPLOT 110,100 TO 110,0: HPLOT 170,100 TO 170,0
2415 FOR I = 0 TO 50 STEP 10: HPLOT 170 -I,30 +I TO 170 -I,40 +I TO 160 -I,40 +I: NEXT
2420 HPLOT 160,40 TO 170,45: HPLOT 160,50 TO 170,52: HPLOT 150,50 TO 170,56: HPLOT 150,60 TO 170,63: HPLOT 140,60 TO 170,66: HPLOT 140,70 TO 170,80: HPLOT 130,70 TO 170,90: HPLOT 130,80 TO 170,100: HPLOT 120,80 TO 160,100: HPLOT 120,90 TO 130,100
2430 HPLOT 0,30 TO 110,30: HPLOT 170,30 TO 279,30: HPLOT 0,60 TO 110,60: HPLOT 170,60 TO 279,60: HPLOT 35,100 TO 35,60: HPLOT 35,30 TO 35,0: HPLOT 70,100 TO 70,60: HPLOT 70,30 TO 70,0: HPLOT 52,60 TO 52,30
2440 HPLOT 10,60 TO 10,30: HPLOT 100,30 TO 100,60: HPLOT 180,0 TO 180,30: HPLOT 180,60 TO 180,100: HPLOT 205,30 TO 205,60: HPLOT 250,30 TO 250,60: HPLOT 270,0 TO 270,30: HPLOT 270,60 TO 270,100: HPLOT 220,0 TO 220,30: HPLOT 220,60 TO 220,100
2450 PRINT "YOU ARE AT THE BOTTOM OF A SECRET STAIRWAY ABOVE THE TOLL BRIDGE"
2455 IF GL(3) = 0 THEN PRINT "YOU HAVE FOUND 10 PIECES OF GOLD"
2460 IF GL(3) = 0 THEN GL(3) = 1:GT = GT +10: HCOLOR= 5:G = 140:H = 120: GOSUB 790: GOSUB 62500: GOSUB 62500: HCOLOR= 0: GOSUB 790:PTS = PTS +10
2470 GOSUB 100
2480 IF A$ = "U" THEN GOTO 2300
2490 IF A$ = "D" THEN GOTO 9000
2499 GOSUB 440: GOTO 2470
2500 GOSUB 60000: GOSUB 2504: GOTO 2512
2504 HPLOT 0,130 TO 50,100 TO 279,100: HPLOT 50,100 TO 50,25: DRAW 13 AT 40,0: DRAW 12: DRAW 16: DRAW 16
2508 SCALE= 2: DRAW 6 AT 140,95: DRAW 6 AT 200,95: DRAW 6 AT 270,95: ROT= 32: DRAW 6 AT 210,40: SCALE= 1: ROT= 6: DRAW 6 AT 140,70: ROT= 22: DRAW 6: HPLOT 210,40 TO 270,95: RETURN
2512 PRINT "ITS THE OLD VAULT OF THE MAHOTSUKAI!"
2516 PRINT "IF YOU GO DOWN YOU WON,T BE ALLOWED UP"
2520 IF OB(2) = 0 THEN PRINT "THERE IS A FOREIGN WORD ON THE WALL"
2524 GOSUB 100
2528 IF A$ = "N" AND CH < >6 THEN PRINT "YOU ARE TOO BIG TO GO THERE ";NA$: GOTO 2524
2532 IF A$ = "N" THEN GOTO 1800
2536 IF A$ = "D" THEN GOTO 2600
2540 IF A$ = "KIN" THEN PRINT "YOU CANNOT SPEAK THAT LANGUAGE, YOU CAN ONLY SPEAK YOUR OWN": GOTO 2524
2544 IF LEFT$(A$,9) = "TRANSLATE" AND OB(2) <2 THEN GOTO 2564
2548 IF LEFT$(A$,4) = "CAST" THEN GOTO 2576
2552 IF LEFT$(A$,4) = "READ" THEN PRINT "IT SAYS 'KIN'": GOTO 2524
2556 IF A$ = "GOLD" AND OB(2) = 1 THEN GOTO 2568
2560 GOSUB 440: GOTO 2524
2564 OB(2) = 1: PRINT "IT SAYS 'GOLD'": GOTO 2524
2568 OB(2) = 2:GT = GT +5:GL(5) = 1:G = 100:H = 140: HCOLOR= 5: GOSUB 790: GOSUB 62500: HCOLOR= 0: GOSUB 790:PTS = PTS +5
2572 PRINT "YOU HAVE FOUND 5 GOLD PIECES": GOTO 2524
2576 IF OB(2) < >0 THEN PRINT "YOU GOT THE GOLD LET'S LEAVE": GOTO 2524
2580 POKE 769,20: POKE 771,250: POKE 783,250: CALL 768:ST = ST -10: IF ST <1 THEN GOTO 750
2584 GOTO 2568
2600 GOSUB 60000
2610 HPLOT 0,130 TO 50,100 TO 50,0: HPLOT 50,90 TO 100,50 TO 100,0: HPLOT 100,40 TO 130,15 TO 130,0: HPLOT 130,10 TO 155,0
2620 HPLOT 279,130 TO 230,100 TO 230,0: HPLOT 230,90 TO 180,50 TO 180,0: HPLOT 180,40 TO 160,15 TO 160,0
2630 PRINT "YOU ARE IN A LONG EAST WEST CANYON"
2640 GOSUB 100
2650 IF A$ = "E" THEN GOTO 3400
2655 IF A$ = "U" THEN GOTO 2700
2660 IF A$ = "W" THEN GOTO 2800
2670 GOSUB 440: GOTO 2640
2700 GOSUB 60000: GOSUB 1960
2710 GOSUB 100
2720 IF A$ = "D" THEN GOTO 2600
2730 GOSUB 440: GOTO 2710
2800 GOSUB 60000
2805 HPLOT 230,159 TO 180,100 TO 180,0: HPLOT 180,90 TO 75,50 TO 75,0: HPLOT 75,40 TO 0,10: HCOLOR= 5: FOR I = 1 TO 50: HPLOT 160 -(I *3),159 -(I *1): NEXT
2810 PRINT "THE E/W CANYON CONTINUES ON"
2812 PRINT "SOMEBODY LEFT TRACKS HERE RECENTLY"
2820 GOSUB 100
2830 IF A$ = "W" THEN GOTO 2900
2835 IF A$ = "N" THEN GOTO 1600
2840 IF A$ = "E" THEN GOTO 2600
2845 IF LEFT$(A$,3) = "WHO" THEN PRINT "I DON'T KNOW": GOTO 2820
2850 GOSUB 440: GOTO 2820
2899 END
2900 GOSUB 60000
2913 X = INT( RND(1) *7): IF X = 0 OR X = 4 THEN GOTO 2913
2914 HCOLOR= X
2930 FOR I = 1 TO 60: HPLOT 70 +(I *3),158 TO 140 +I,50: NEXT I
2940 HCOLOR= 3: HPLOT 140,50 TO 140,0 TO 120,30 TO 110,30 TO 80,50 TO 70,50 TO 30,100 TO 20,100 TO 0,100: HPLOT 30,100 TO 30,159: HPLOT 70,50 TO 70,159: HPLOT 80,50 TO 80,145: HPLOT 110,30 TO 110,98: HPLOT 120,30 TO 120,83
2950 HPLOT 140,50 TO 200,30: HPLOT 200,50 TO 200,0 TO 230,70 TO 250,70 TO 279,120: HPLOT 230,70 TO 230,110:: HPLOT 250,70 TO 250,153
2960 PRINT "THIS IS THE WEST END OF A E/W CANYON"
2970 GOSUB 100
2980 IF A$ = "E" THEN GOTO 2800
2990 IF A$ = "W" AND OB(4) = 1 THEN GOTO 4000
2995 IF A$ = "W" THEN GOTO 3000
2996 IF A$ = "N" THEN GOTO 3500
2999 GOSUB 440: GOTO 2970
3000 GOSUB 60000:OB(4) = 1
3004 : POKE 783,25: POKE 769,1: POKE 771,100
3008 FOR I = 1 TO 120 STEP 10: HCOLOR= 5: DRAW 4 AT I,20: DRAW 4 AT 260 -I,29: DRAW 4 AT I,26: DRAW 4 AT 260 -I,23: CALL 768: HCOLOR= 0: DRAW 4 AT I,20: DRAW 4 AT 260 -I,29: DRAW 4 AT I,26: DRAW 4 AT 260 -I,23: NEXT
3012 SCALE= 2: HCOLOR= 5: DRAW 4 AT 130,20: DRAW 4 AT 130,23: DRAW 4 AT 130,29: DRAW 4 AT 130,26: HCOLOR= 0: DRAW 4 AT 130,20: HCOLOR= 5: ROT= 5: DRAW 4 AT 110,40: CALL 768: HCOLOR= 0: DRAW 4 AT 110,40
3016 HCOLOR= 5: ROT= 16: DRAW 4 AT 129,30: CALL 768: ROT= 0: HCOLOR= 0: DRAW 4 AT 130,29: HCOLOR= 5: ROT= 5: DRAW 4 AT 140,40: CALL 768: HCOLOR= 0: DRAW 4 AT 140,40: ROT= 16: HCOLOR= 5: DRAW 4 AT 165,30: CALL 768: ROT= 0
3020 HCOLOR= 0: DRAW 4 AT 130,23
3024 FOR I = 1 TO 40 STEP 10: HCOLOR= 5: DRAW 4 AT 131,30 +I: CALL 768: HCOLOR= 0: DRAW 4 AT 131,30 +I: NEXT
3028 HCOLOR= 5: DRAW 4 AT 131,60: HCOLOR= 0: DRAW 4 AT 129,26: HCOLOR= 5: DRAW 4 AT 131,33
3032 HCOLOR= 3: ROT= 0: SCALE= 1: POKE 783,200: POKE 769,1: POKE 771,240: HPLOT 130,30 TO 50,100: CALL 768: HPLOT 165,30 TO 52,100: CALL 768: HPLOT 130,60 TO 50,102: CALL 768: HPLOT 165,60 TO 52,102: CALL 768
3033 PRINT "HELP! HELP! YOUR UNDER ATTACK FROM OLDORF THE SORCERER. THE FORCE FIELD IS DRAINING YOUR STRENGTH"
3034 : FOR I = 1 TO 7000: NEXT I: PRINT : GOSUB 3060
3036 GOSUB 100
3038 IF LEFT$(A$,4) = "CAST" THEN HCOLOR= 3: SCALE= 1: FOR I = 0 TO 64 STEP 16: POKE 771,50: POKE 769,03: CALL 768: ROT= I: DRAW 19 AT 140,50: FOR X = 1 TO 100: NEXT X: XDRAW 19 AT 140,50: NEXT I: GOTO 4000
3040 GOSUB 3060
3056 GOSUB 440: GOTO 3036
3060 HCOLOR= 3: HPLOT 50,103 TO 20,158: CALL 768: HCOLOR= 0: HPLOT 50,103 TO 20,158: HCOLOR= 3: HPLOT 50,103 TO 140,158: CALL 768: HCOLOR= 0: HPLOT 50,103 TO 140,158: HCOLOR= 3: HPLOT 50,103 TO 230,158: CALL 768: HCOLOR= 0: HPLOT 50,103 TO 230,158
3065 PRINT "YOU ARE UNDER ATTACK. YOUR STRENGTH IS DIMINISHING!!! YOU ARE UNABLE TO MOVE"
3070 GOSUB 730: RETURN
3100 GOSUB 60000
3110 HPLOT 50,100 TO 50,0: HPLOT 50,100 TO 30,80 TO 30,0: HPLOT 30,70 TO 0,40: HPLOT 50,100 TO 90,50 TO 90,0: HPLOT 90,40 TO 130,0: HPLOT 279,110 TO 230,80 TO 230,0: HPLOT 230,70 TO 180,30 TO 180,0: HPLOT 180,25 TO 160,0
3120 PRINT "THE CAVES SPLIT SOUTH AND WEST HERE"
3130 IF OB(3) = 0 THEN PRINT "SOMEBODY JUST MOVED TO THE WEST"
3140 GOSUB 100
3150 IF A$ = "W" THEN GOTO 3200
3155 IF A$ = "E" THEN GOTO 3400
3160 IF A$ = "S" THEN GOTO 3500
3170 IF A$ = "N" THEN GOTO 1300
3199 GOSUB 440: GOTO 3140
3200 GOSUB 60000: GOSUB 3205: GOTO 3215
3205 HPLOT 110,100 TO 110,50 TO 170,50 TO 170,100 TO 110,100: ROT= 32: DRAW 13 AT 30,159: DRAW 13 AT 115,159: HPLOT 170,100 TO 233,133: HPLOT 110,100 TO 99,121
3210 ROT= 0: DRAW 13 AT 20,0: DRAW 12: DRAW 13 AT 210,0: HPLOT 110,50 TO 95,30: HPLOT 170,50 TO 222,30: RETURN
3215 DRAW 17 AT 40,90: PRINT "THE PASSAGE CONTINUES WEST"
3216 PRINT "I THOUGHT I SAW THE GENTLE GREEZERLIPS"
3220 IF OB(3) = 0 THEN PRINT "HOWEVER ONE OF ARMADIE'S TROLLS HAS BLOCKED THE WAY WITH WIERD SPUN GLASS"
3225 IF OB(3) = 0 THEN GOSUB 3290
3230 GOSUB 100
3240 IF A$ = "E" THEN GOTO 3100
3245 IF A$ = "W" AND OB(3) = 0 THEN POKE 783,0: POKE 769,010: POKE 771,175: CALL 768: PRINT "THE GLASS BARS YOUR WAY": GOTO 3230
3250 IF LEFT$(A$,5) = "BREAK" AND OB(3) = 0 THEN OB(3) = 1: HCOLOR= 0: GOSUB 3290: ROT= 48: HCOLOR= 3: DRAW 22 AT 169,90: FOR I = 1 TO 700: NEXT I: XDRAW 22 AT 169,90: GOTO 3230
3260 IF LEFT$(A$,4) = "CAST" AND OB(3) = 1 THEN PRINT "AW COME ON ";NA$;" THE GLASS IS GONE": GOTO 3230
3265 IF LEFT$(A$,4) = "CAST" AND OB(3) = 0 THEN OB(3) = 1: POKE 783,99: POKE 769,30: POKE 771,200: CALL 768: ROT= 16: DRAW 19 AT 180,60: XDRAW 19 AT 180,60: HCOLOR= 0: GOSUB 3290:ST = ST -8: GOSUB 730: HCOLOR= 3: ROT= 48: DRAW 22 AT 169,90: FOR I = 1 TO 1000: NEXT I: XDRAW 22 AT 169,90: GOTO 3230
3270 IF A$ = "W" THEN GOTO 3300
3289 GOSUB 440: GOTO 3230
3290 HPLOT 111,90 TO 169,60: HPLOT 111,70 TO 169,85: HPLOT 115,51 TO 155,99: HPLOT 166,51 TO 114,99: HPLOT 130,51 TO 140,99
3292 RETURN
3299 END
3300 GOSUB 60000: GOSUB 3205: GOTO 3310
3310 DRAW 36 AT 40,60: DRAW 35 AT 54,65: DRAW 37 AT 240,60: DRAW 35 AT 218,65
3315 PRINT "SOMEBODY HAS BEEN HERE RECENTLY"
3320 IF GL(6) = 0 THEN PRINT "YOU HAVE FOUND 5 GOLD COINS"
3330 IF GL(6) = 0 THEN GL(6) = 1:G = 120:H = 80: HCOLOR= 5: GOSUB 790: GOSUB 62500: HCOLOR= 0: GOSUB 790: HCOLOR= 5: GOSUB 790: GOSUB 62500: HCOLOR= 0: GOSUB 790:PTS = PTS +5:GT = GT +5
3335 GOSUB 100
3340 IF A$ = "E" THEN GOTO 3200
3350 IF A$ = "W" THEN GOTO 3800
3399 GOSUB 440: GOTO 3335
3400 GOSUB 60000
3410 HPLOT 0,70 TO 80,70: HPLOT 160,70 TO 279,70: HPLOT 80,0 TO 80,80 TO 160,80 TO 160,0: HPLOT 0,90 TO 80,90 TO 70,100 TO 170,100 TO 160,90 TO 279,90: HPLOT 70,100 TO 70,130: HPLOT 170,100 TO 170,140: DRAW 16 AT 5,0: DRAW 16: DRAW 16: DRAW 16: DRAW 16
3415 PRINT "YOU ARE GOING ALONG A LEDGE THAT RUNS WEST AND APPEARS TO LOOP TO THE EAST"
3420 ROT= 32: DRAW 12 AT 279,150: DRAW 12: DRAW 12: DRAW 12: DRAW 12
3430 GOSUB 100
3440 IF A$ = "E" THEN GOTO 260
3418 PLOT A$ = W" THEN GOTO 3100
3499 GOSUB 440: GOTO 3430
3500 GOSUB 60000
3510 HPLOT 0,159 TO 70,100 TO 279,100: HPLOT 70,100 TO 70,0: HPLOT 150,100 TO 150,30 TO 190,30 TO 190,100: HPLOT 150,100 TO 190,80
3512 DRAW 13 AT 250,0
3515 IF GL(7) = 0 THEN PRINT "THERE IS A MAGICAL WORD ON THE WALL"
3520 IF GL(7) = 0 THEN DRAW 27 AT 100,30: DRAW 26 AT 110,35: DRAW 30 AT 120,30: DRAW 30 AT 130,30
3530 PRINT "THIS IS A SMALL CHAMBER"
3540 GOSUB 100
3550 IF A$ = "ZPWW" AND CH < >5 THEN PRINT "DON,T MESS AROUND WITH WORDS YOU DON,T HAVE THE POWER TO USE": GOTO 3540
3560 IF LEFT$(A$,4) = "READ" THEN PRINT "ZPWW": GOTO 3540
3561 IF A$ = "ZPWW" AND CH = 5 AND GL(7) = 0 THEN GL(7) = 1:GT = GT +5: HCOLOR= 5:G = 140:H = 120: GOSUB 790: GOSUB 62500: GOSUB 62500: HCOLOR= 0: GOSUB 790:PTS = PTS +5: PRINT "AH HA 5 GOLD PIECES": GOTO 3540
3570 IF A$ = "MAGIC" THEN PRINT "YOU'RE GETTING CLOSER": GOTO 3540
3590 IF A$ = "N" THEN GOTO 3100
3592 IF A$ = "D" THEN GOTO 3600
3595 IF A$ = "S" THEN GOTO 2900
3599 GOSUB 440: GOTO 3540
3600 GOSUB 60000: GOSUB 1805
3605 HPLOT 105,116 TO 105,80 TO 145,80 TO 145,116
3606 HPLOT 88,125 TO 88,70 TO 160,70 TO 160,120
3610 PRINT "YOU ARE IN A DEEP SHAFT WITH LIGHT RADIATING FROM BELOW"
3620 GOSUB 100
3630 IF A$ = "U" THEN GOTO 3500
3640 IF A$ = "D" THEN GOTO 3700
3690 GOSUB 440: GOTO 3620
3700 GOSUB 60000: GOSUB 3710: GOTO 3770
3710 HPLOT 0,140 TO 279,50
3720 DRAW 36 AT 40,50: DRAW 36 AT 100,40: DRAW 36 AT 160,30: DRAW 35 AT 54,55: DRAW 35 AT 114,45: DRAW 35 AT 174,35
3730 DRAW 12 AT 10,0: DRAW 16: DRAW 12: DRAW 12
3740 ROT= 32: DRAW 13 AT 275,159: DRAW 16: DRAW 16: DRAW 12: RETURN
3770 PRINT "YOU ARE IN A WELL LIGHTED N/S PASSAGE BELOW A SHAFT"
3780 GOSUB 100
3782 IF A$ = "U" THEN GOTO 3600
3784 IF A$ = "S" THEN GOTO 3900
3786 IF A$ = "N" THEN GOTO 4200
3790 GOSUB 440: GOTO 3780
3800 GOSUB 60000
3810 HPLOT 0,120 TO 140,50 TO 279,120: HPLOT 140,50 TO 140,0
3870 PRINT "YOU ARE AT A DEAD END OF SORTS. YOU MAY GO DOWN BUT WILL NOT BE ALLOWED BACK UP"
3880 GOSUB 100
3882 IF A$ = "E" THEN GOTO 3300
3884 IF A$ = "D" THEN GOTO 3900
3890 GOSUB 440: GOTO 3880
3900 GOSUB 60000: GOSUB 3710: GOTO 3940
3940 PRINT "THIS IS THE FAR SOUTH END OF A WELL LIT N/S PASSAGE"
3980 GOSUB 100
3982 IF A$ = "U" THEN GOTO 4100
3984 IF A$ = "N" THEN GOTO 3700
3990 GOSUB 440: GOTO 3980
4000 GOSUB 60000: GOSUB 1105: GOTO 4010
4010 PRINT "YOU ARE IN THE GREAT CAVERN OF OLDORF"
4020 IF IT(1) = 0 THEN PRINT "YOU'VE FOUND THE POWERFUL SWORD OF THE GREEZERLIPS TO BE USED ON THE TORKIES"
4025 IF IT(1) = 0 THEN IT(1) = 1: DRAW 7 AT 100,100: GOSUB 62510: XDRAW 7 AT 100,100
4030 GOSUB 100
4040 IF A$ = "E" AND OB(4) = 0 THEN GOTO 3000
4050 IF A$ = "E" THEN GOTO 2900
4060 IF A$ = "W" THEN GOTO 6000
4099 GOSUB 440: GOTO 4030
4100 GOSUB 60000: GOSUB 1960
4110 GOSUB 100
4120 IF A$ = "D" THEN GOTO 3900
4130 GOSUB 440: GOTO 4110
4200 GOSUB 60000
4205 HPLOT 0,120 TO 120,40 TO 160,40 TO 279,120: HPLOT 120,40 TO 120,0: HPLOT 160,40 TO 160,0
4210 DRAW 36 AT 30,30: DRAW 37 AT 250,30: DRAW 35 AT 44,35: DRAW 35 AT 226,35
4220 PRINT "YOU ARE AT THE NORTHERN END OF A BRIGHT PASSAGE"
4230 IF OB(6) = 0 THEN PRINT "A SNAKE BARS YOU FROM GOING NORTH"
4240 IF OB(6) = 0 THEN : DRAW 21 AT 140,70
4250 GOSUB 100
4255 IF A$ = "S" THEN GOTO 3700
4260 IF A$ = "N" AND OB(6) = 0 THEN FOR I = 1 TO 5: POKE 0,250: POKE 1,20: CALL 800: XDRAW 21 AT 139 +I,70: DRAW 21 AT 140 +I,70: NEXT I: FOR I = 1 TO 5: POKE 0,250: POKE 1,20: CALL 800: XDRAW 21 AT 146 -I,70: DRAW 21 AT 145 -I,70: NEXT I
4265 IF A$ = "N" AND OB(6) = 0 THEN PRINT "HE WON'T LET YOU BY"
4270 IF A$ = "N" AND OB(6) = 1 THEN GOTO 4300
4275 IF OB(6) = 0 AND A$ = "ATTACK" OR OB(6) = 0 AND A$ = "KILL" OR OB(6) = 0 AND A$ = "FIGHT" THEN POKE 783,200: POKE 769,1: POKE 771,10: CALL 768: XDRAW 21 AT 140,70:OB(6) = 1: GOTO 4250
4280 IF OB(6) = 0 AND LEFT$(A$,4) = "CAST" THEN POKE 783,200: POKE 769,3: POKE 771,250: CALL 768: XDRAW 21 AT 140,70:OB(6) = 1:ST = ST -2: GOSUB 730: GOTO 4250
4290 GOSUB 440: GOTO 4250
4299 END
4300 GOSUB 60000
4310 PRINT "YOU ARE IN THE BLACK HOLE CRATER WHERE NO LIGHT CAN PENETRATE. HIT ANY KEY TO GET OUT"
4320 GET A$: PRINT A$
4330 GOTO 4400
4400 GOSUB 60000
4410 DRAW 12 AT 1,1: DRAW 16: DRAW 12: DRAW 16: DRAW 12: DRAW 12 AT 0,30: DRAW 12: DRAW 16: DRAW 12: DRAW 12
4420 ROT= 32: DRAW 12 AT 278,158: DRAW 16: DRAW 13: DRAW 13: DRAW 12 AT 58,106: DRAW 16 AT 109,106: DRAW 13 AT 270,146
4430 DRAW 6 AT 160,60: ROT= 0: DRAW 6 AT 190,86: HPLOT 160,60 TO 190,60: HPLOT 190,86 TO 160,86
4440 PRINT "YOU ARE VERY DEEP INTO THE CAVES AT A DARK AND DAMP DEAD END EXCEPT FOR A SLANTED PASSAGE TO THE NORTH"
4450 GOSUB 100
4460 IF A$ = "N" THEN GOTO 4500
4470 GOSUB 440: GOTO 4450
4499 END
4500 GOSUB 60000
4510 HPLOT 0,130 TO 278,100
4520 PRINT "THIS OLD LAVA TUBE RUNS NORTH AND SOUTH"
4530 DRAW 17 AT 50,60: DRAW 17 AT 125,60: DRAW 17 AT 200,50
4575 IF OB(8) < >2 THEN PRINT "SOME BODY IS MOVING AROUND TO THE NORTH"
4580 GOSUB 100
4585 IF A$ = "N" THEN GOTO 4600
4590 IF A$ = "S" THEN GOTO 4400
4595 IF A$ = "E" THEN GOTO 9000
4598 GOSUB 440: GOTO 4580
4599 END
4600 GOSUB 60000
4610 HPLOT 0,120 TO 200,100 TO 200,0: HPLOT 279,90 TO 200,80: DRAW 17 AT 100,60: DRAW 18 AT 270,30
4620 PRINT "THE LAVA TUBE BENDS EAST AND GOES SOUTH"
4670 IF OB(8) <2 THEN PRINT "THERE IS SOMEBODY DOWN BELOW YOU"
4680 GOSUB 100
4685 IF A$ = "D" AND OB(8) = 2 THEN GOTO 5200
4690 IF A$ = "D" THEN GOTO 5000
4692 IF A$ = "S" THEN GOTO 4500
4695 IF A$ = "E" THEN GOTO 4700
4696 IF A$ = "W" THEN GOTO 9000
4698 GOSUB 440: GOTO 4680
4700 GOSUB 60000
4710 HPLOT 279,120 TO 80,100 TO 80,0: HPLOT 0,90 TO 80,70: DRAW 17 AT 10,35: DRAW 18 AT 180,60
4720 PRINT "THIS OLD LAVA TUBE TUBE NOW BENDS WEST AND NARROWS TO THE NORTH"
4730 IF OB(8) < >2 THEN PRINT "SOMEBODY IS MOVING AROUND TO THE WEST"
4750 GOSUB 100
4760 IF A$ = "W" THEN GOTO 4600
4765 IF A$ = "S" THEN GOTO 9000
4770 IF A$ = "N" THEN GOTO 4800
4780 GOSUB 440: GOTO 4750
4800 GOSUB 60000
4810 PRINT "THIS IS THE NORTHERN END OF A OLD LAVA TUBE. THERE ARE MANY CRACKS IN THE FLOOR"
4820 HPLOT 0,120 TO 140,50 TO 279,120: HPLOT 140,50 TO 140,0: DRAW 17 AT 40,60: DRAW 18 AT 230,60
4830 HPLOT 45,100 TO 90,130 TO 130,100 TO 230,159
4840 DRAW 19 AT 115,135: ROT= 6: DRAW 19: ROT= 0: HPLOT 60,110 TO 60,120 TO 50,115 TO 70,130 TO 65,140 TO 80,159
4850 GOSUB 100
4860 IF A$ = "D" AND CH < >6 THEN PRINT "YOU'RE TOO BIG TO FIT THRU A CRACK": GOTO 4850
4865 IF A$ = "D" THEN GOTO 4900
4870 IF A$ = "S" THEN GOTO 4700
4880 GOSUB 440: GOTO 4850
4899 END
4900 GOSUB 60000
4905 HPLOT 140,159 TO 110,0 TO 170,0 TO 140,159
4910 PRINT "YOU'RE AT THE BOTTOM OF A CRACK"
4920 IF GL(10) = 0 THEN PRINT "YOU'VE FOUND 5 GOLD COINS"
4930 IF GL(10) = 0 THEN GL(10) = 1:G = 140:H = 50: GOSUB 790: GOSUB 62500: HCOLOR= 0: GOSUB 790:GT = GT +5:PTS = PTS +5
4950 GOSUB 100
4960 IF A$ = "U" AND CH < >6 THEN PRINT "YOU'RE TOO BIG TO FIT THRU A CRACK": GOTO 4950
4970 IF A$ = "U" THEN GOTO 4800
4980 GOSUB 440: GOTO 4950
5000 GOSUB 60000
5010 FOR I = 1 TO 5: POKE 0,250: POKE 1,10: CALL 800: SCALE= I: ROT= I *16: DRAW 15 AT 30 +(I *10),30 +(I *10): XDRAW 15 AT 30 +(I *10),30 +(I *10): NEXT I: HCOLOR= 2: SCALE= 6: ROT= 0: DRAW 15 AT 100,150
5020 HCOLOR= 3: HPLOT 130,120 TO 115,100 TO 115,80 TO 110,95: HPLOT 140,120 TO 155,100 TO 155,80 TO 160,95
5030 HPLOT 172,95 TO 160,70 TO 150,60: HPLOT 95,95 TO 110,70 TO 120,63: SCALE= 1: ROT= 0: DRAW 1 AT 140,70
5040 DRAW 14 AT 80,110: HPLOT 95,95 TO 90,110: HPLOT 110,95 TO 93,116
5050 DRAW 14 AT 175,110: HPLOT 172,95 TO 177,100: HPLOT 160,95 TO 174,109
5055 PRINT "IT'S A ONE EYED, TWO THUMBED, TORKIE!!"
5060 PRINT "AND HE WON'T LET YOU PASS."
5065 GOSUB 100
5066 IF A$ = "D" AND OB(8) = 2 THEN GOTO 5200
5067 IF A$ = "U" THEN GOTO 4600
5070 IF A$ = "D" THEN FOR I = 1 TO 5: XDRAW 14 AT 175,110: DRAW 14 AT 175,115: XDRAW 14 AT 175,115: DRAW 14 AT 175,110: POKE 0,150: POKE 1,10: CALL 800: NEXT I: PRINT "STOP RIGHT THERE ";NA$
5080 IF A$ = "ATTACK" OR A$ = "FIGHT" OR A$ = "KILL" OR A$ = "PUNCH" THEN GOTO 5180
5085 IF LEFT$(A$,4) = "CAST" THEN GOTO 5160
5099 GOSUB 440: GOTO 5065
5160 IF OB(8) < >0 THEN GOTO 5165
5161 FOR I = 1 TO 5: POKE 783,20: POKE 769,1: POKE 771,20: CALL 768: ROT= 32 +(I *5): DRAW 19 AT 60,110: HCOLOR= 0: DRAW 19 AT 60,110: HCOLOR= 3: NEXT
5162 ROT= 0: HCOLOR= 0: DRAW 14 AT 80,110: HCOLOR= 3: ROT= 16: DRAW 2 AT 89,109: HPLOT 95,95 TO 85,109: ROT= 0
5163 OB(8) = 1: PRINT "OH YUK YOU CUT HIS HAND OFF!": PRINT "HE BEAT OFF YOUR ATTACK THOUGH AND STILL WON'T LET YOU PASS": IF Z < >0 THEN GOTO 5065
5164 ST = ST -10: GOSUB 730:Z = 0: GOTO 5065
5165 IF OB(8) = 2 THEN GOTO 5195
5166 OB(8) = 2: FOR I = 1 TO 5: POKE 783,20: POKE 769,1: POKE 771,30: CALL 768: ROT= 0 +(I *5): DRAW 19 AT 200,110: HCOLOR= 0: DRAW 19 AT 200,110: HCOLOR= 3: NEXT I
5167 HCOLOR= 0: ROT= 0: DRAW 14 AT 175,110: HCOLOR= 3: PRINT "OH BARF! GO DOWN AND LETS GET OUTTA HERE": ROT= 16: DRAW 2 AT 180,105
5168 IF Z < >0 THEN GOTO 5065
5169 ST = ST -10: GOSUB 730: GOTO 5065
5180 IF IT(1) = 1 THEN GOTO 5185
5182 PRINT "YOU POSSES THE HEART AND THE SPIRIT BUT NOT THE WEAPON TO ";A$: GOTO 5065
5185 IF OB(8) = 0 THEN Z = 1: GOTO 5160
5186 Z = 1: GOTO 5165
5195 PRINT "HE WON'T HURT YOU NOW ";NA$: GOTO 5065
5199 GOSUB 440: GOTO 5065
5200 GOSUB 60000
5210 HPLOT 0,120 TO 50,50 TO 230,50 TO 279,120: HPLOT 50,50 TO 50,0: HPLOT 230,50 TO 230,0
5220 PRINT "THIS IS A OLD TREASURE ROOM"
5230 IF GL(9) = 0 THEN PRINT "HURRAH YOU FOUND FIVE GOLD PIECES"
5244 IF GL(9) = 0 THEN GL(9) = 1:G = 120:H = 80: HCOLOR= 5: GOSUB 790: GOSUB 62500: HCOLOR= 0: GOSUB 790: HCOLOR= 5: GOSUB 790: GOSUB 62500: HCOLOR= 0: GOSUB 790:PTS = PTS +5:GT = GT +5
5260 GOSUB 100
5270 IF A$ = "U" THEN GOTO 4600
5280 GOSUB 440: GOTO 5260
5999 END
6000 GOSUB 60000
6005 HPLOT 0,130 TO 50,70 TO 220,70 TO 279,130: HPLOT 50,70 TO 50,0: HPLOT 220,70 TO 220,0
6010 DRAW 17 AT 10,50: DRAW 18 AT 270,50
6020 PRINT "THIS IS THE WEST SIDE ROOM OF OLDORF'S CAVERN"
6030 IF OB(7) = 0 THEN DRAW 8 AT 100,130
6031 IF OB(7) = 1 THEN DRAW 8 AT 200,130
6050 GOSUB 100
6055 IF LEFT$(A$,4) = "MOVE" AND OB(7) = 0 OR LEFT$(A$,4) = "LIFT" AND OB(7) = 0 THEN GOTO 6091
6060 IF A$ = "W" THEN GOTO 4300
6070 IF A$ = "E" THEN GOTO 4000
6090 GOSUB 440: GOTO 6050
6091 XDRAW 8 AT 100,130:G = 100:H = 130: GOSUB 790: GOSUB 62500: HCOLOR= 0: GOSUB 790
6092 HCOLOR= 3: DRAW 8 AT 200,130:OB(7) = 1
6093 PTS = PTS +5:GT = GT +5:GL(8) = 1: PRINT "NICE GOING YOU JUST FOUND 5 GOLD COINS"
6094 GOTO 6050
9000 GOSUB 60000
9010 HPLOT 50,80 TO 150,130 TO 150,100 TO 50,50 TO 50,80: HPLOT 150,130 TO 170,105 TO 170,75 TO 80,30 TO 80,55 TO 170,105: HPLOT 80,55 TO 50,80
9015 HPLOT 0,140 TO 40,125 TO 90,100: HPLOT 40,125 TO 40,159: HPLOT 70,159 TO 110,130 TO 100,130 TO 130,120: HPLOT 100,130 TO 100,138
9020 HPLOT 125,80 TO 180,50: HPLOT 180,50 TO 180,90: HPLOT 180,50 TO 220,0: HPLOT 160,100 TO 200,80
9025 HCOLOR= 2: SCALE= 5: DRAW 15 AT 200,100: DRAW 15 AT 201,100: HCOLOR= 3: HPLOT 210,74 TO 279,50: ROT= 16: SCALE= 1: DRAW 15 AT 210,100: DRAW 15 AT 235,100
9030 ROT= 0: DRAW 29 AT 210,80: DRAW 24 AT 217,86: DRAW 25 AT 224,84: DRAW 26 AT 235,86
9040 PRINT "YOU ARE AT A COMPLEX JUNCTION
9045 IF OB(5) = 0 THEN PRINT "THE TOLL TO CROSS THE BRIDGE TO THE SOUTH IS 50 GOLD PIECES.GO 'S' TO CROSS"
9050 GOSUB 100
9055 IF A$ = "U" THEN GOTO 2400
9056 IF A$ = "E" THEN GOTO 4600
9057 IF A$ = "W" THEN GOTO 4500
9058 IF A$ = "N" THEN GOTO 4700
9060 IF A$ = "S" AND OB(5) = 0 AND GT < >50 THEN PRINT "YOU ONLY HAVE ";GT;" GOLD PIECES": GOTO 9050
9065 IF A$ = "S" AND OB(5) = 1 THEN GOTO 9090
9070 IF A$ = "S" AND OB(5) = 0 AND GT = 50 THEN GT = 0:OB(5) = 1: GOTO 9090
9075 IF LEFT$(A$,4) = "CAST" THEN POKE 783,240: POKE 769,2: POKE 771,250: CALL 768: PRINT "EVEN YOU HAVE TO PAY A TOLL MR. WIZARD": GOTO 9050
9080 IF A$ = "JUMP" OR A$ = "FLY" OR A$ = "BOUND" THEN PRINT "NICE TRY! NOW PAY UP": GOTO 9050
9085 IF A$ = "CREDIT" OR A$ = "CHARGE" THEN PRINT "YA SURE, YOUR REAL CUTE WITH THE BANKCARD ROUTINE": GOTO 9050
9086 IF LEN(A$) = 1 THEN GOTO 9089
9087 PRINT "COME ON COME ON, NO TICKY NO WASHY"
9089 GOSUB 440: GOTO 9050
9090 PRINT CHR$(4);"BLOAD CHAIN,A520"
9095 CALL 520"WIZARD2"
60000 REM BORDER
60004 POKE 34,20: HOME : SCALE= 1: ROT= 0:I = 0:X = 0
60010 HGR : HCOLOR= 3:: HPLOT 0,0 TO 0,159: HPLOT 0,0 TO 0,159: HPLOT 0,0 TO 279,0: HPLOT 0,159 TO 279,159: HPLOT 279,0 TO 279,159: RETURN
62050 END
62055 REM
62075 PRINT PTS;" POINTS RATES YOU AS A NOVICE WIZARD": END
62500 FOR I = 1 TO 4: FOR X = 1 TO 5: POKE 0,I +X *15: POKE 1,20: CALL 800: NEXT X: NEXT I: RETURN
62510 FOR I = 1 TO 4: FOR X = 1 TO 5: POKE 0,200 +(X *5): POKE 1,50: CALL 800: NEXT X: NEXT I: RETURN
62530 END
62550 END
Text found in Wizard_I_1980_Highlands_Computer_Services.do/WIZARD2.bas:
10 POKE 34,20: HOME : GOSUB 63900:GAME = 2
100 GOSUB 60000
110 PRINT "THIS IS OLDORF'S UNDERGROUND CASTLE"
115 HPLOT 200,50 TO 210,15 TO 220,50 TO 200,50 TO 200,140 TO 220,140 TO 220,50: HPLOT 207,65 TO 213,65 TO 213,75 TO 207,75 TO 207,65
125 HPLOT 150,5 TO 155,5 TO 175,25 TO 153,33 TO 115,30 TO 150,5: HPLOT 153,5 TO 153,40: HPLOT 115,30 TO 120,40 TO 155,40 TO 172,35 TO 175,25
135 HPLOT 172,35 TO 178,50 TO 153,55 TO 153,40: HPLOT 153,55 TO 110,55 TO 120,40
145 HPLOT 123,45 TO 128,45 TO 128,50 TO 123,50 TO 123,45: HPLOT 140,45 TO 145,45 TO 145,50 TO 140,50 TO 140,45: HPLOT 153,55 TO 153,150 TO 100,150 TO 100,90 TO 153,90: HPLOT 178,50 TO 200,90
155 HPLOT 100,90 TO 110,55: HPLOT 110,150 TO 110,125 TO 143,125 TO 143,150: HPLOT 126,150 TO 126,125: HPLOT 110,128 TO 143,128: HPLOT 110,133 TO 143,133: HPLOT 115,130: HPLOT 120,130: HPLOT 131,130: HPLOT 136,130
160 HPLOT 110,147 TO 143,147: HPLOT 110,142 TO 143,142: HPLOT 115,144: HPLOT 120,144: HPLOT 131,144: HPLOT 136,144
170 HPLOT 153,145 TO 190,145 TO 190,105 TO 175,80 TO 160,105 TO 160,145: HPLOT 153,105 TO 200,105: HPLOT 190,140 TO 200,140: HPLOT 172,115 TO 172,135 TO 177,135 TO 177,115 TO 172,115
180 HPLOT 110,55 TO 85,60 TO 100,90 TO 65,90 TO 85,60: HPLOT 65,90 TO 65,105 TO 30,105 TO 30,142 TO 100,142: HPLOT 65,105 TO 100,105: HPLOT 40,113 TO 40,133 TO 50,133 TO 50,113 TO 40,113
185 HPLOT 80,113 TO 80,133 TO 90,133 TO 90,113 TO 80,113
190 HPLOT 115,75 TO 122,68 TO 125,75 TO 115,75: HPLOT 135,75 TO 142,68 TO 145,75 TO 135,75: HPLOT 48,83 TO 53,83 TO 53,100 TO 48,100 TO 48,83: HPLOT 80,95 TO 80,100 TO 85,100 TO 85,95 TO 80,95
200 HPLOT 65,90 TO 50,65 TO 35,90 TO 35,105
210 HPLOT 0,45 TO 117,45: HPLOT 175,45 TO 201,45: HPLOT 218,45 TO 279,45
220 FOR I = 121 TO 128: HPLOT I,100: NEXT I
225 HPLOT 129,101: HPLOT 130,102: HPLOT 131,103: HPLOT 131,104: HPLOT 131,105: HPLOT 131,106: HPLOT 131,107
230 HPLOT 129,108: HPLOT 129,109: HPLOT 129,110: HPLOT 129,111: HPLOT 129,112: HPLOT 129,113: HPLOT 128,114: HPLOT 127,115: HPLOT 126,116: HPLOT 125,116: HPLOT 124,116: HPLOT 123,116: HPLOT 122,116
235 HPLOT 121,115: HPLOT 120,115: HPLOT 119,114: HPLOT 119,113
240 HPLOT 118,112: HPLOT 118,111: HPLOT 118,110: HPLOT 118,109: HPLOT 117,108: HPLOT 116,107: HPLOT 116,106: HPLOT 116,105: HPLOT 116,104: HPLOT 116,103: HPLOT 117,102: HPLOT 118,101: HPLOT 119,100
250 HPLOT 118,104: HPLOT 119,104: HPLOT 120,104: HPLOT 121,105: HPLOT 121,106: HPLOT 120,106: HPLOT 119,106: HPLOT 118,105
255 HPLOT 125,104: HPLOT 126,104: HPLOT 127,104: HPLOT 127,105: HPLOT 126,106: HPLOT 125,106: HPLOT 124,106: HPLOT 124,105
265 HPLOT 122,109: HPLOT 123,109: HPLOT 124,109: HPLOT 125,109: HPLOT 126,110: HPLOT 127,111: HPLOT 127,112: HPLOT 126,112: HPLOT 125,111: HPLOT 124,111: HPLOT 123,111: HPLOT 122,112: HPLOT 120,112: HPLOT 120,111: HPLOT 121,110
300 GOSUB 63000
310 IF A$ = "W" THEN GOTO 2000
320 IF A$ = "N" THEN GOTO 1000
330 GOSUB 63300: GOTO 300
999 END
1000 GOSUB 60000: HOME
1005 PRINT "YOU ARE IN A LONG HALLWAY"
1010 HPLOT 0,60 TO 35,60 TO 70,85 TO 105,60 TO 175,60 TO 210,85 TO 245,60 TO 279,60
1015 HPLOT 70,85 TO 70,140 TO 0,140: HPLOT 210,85 TO 210,140 TO 279,140
1020 HPLOT 0,90 TO 70,90: HPLOT 210,90 TO 279,90: HPLOT 0,100 TO 70,100: HPLOT 210,100 TO 279,100: HPLOT 0,130 TO 70,130: HPLOT 210,130 TO 279,130: HPLOT 0,120 TO 70,120: HPLOT 210,120 TO 279,120: HPLOT 55,0 TO 55,75: HPLOT 225,75 TO 225,0
1030 HPLOT 135,115 TO 135,88 TO 145,80 TO 180,80 TO 185,88 TO 185,115 TO 135,115: HPLOT 70,85 TO 135,88: HPLOT 135,115 TO 70,132: HPLOT 140,115 TO 55,159: HPLOT 180,115 TO 224,159
1040 HPLOT 140,115 TO 140,88 TO 180,88 TO 180,115: HPLOT 160,115 TO 160,88: HPLOT 20,95: HPLOT 35,95: HPLOT 50,95: HPLOT 225,95: HPLOT 240,95: HPLOT 255,95: HPLOT 20,125: HPLOT 35,125: HPLOT 50,125: HPLOT 225,125: HPLOT 240,125: HPLOT 255,125
1045 GOSUB 63000
1050 IF A$ = "S" THEN GOTO 100
1055 IF A$ = "N" THEN GOTO 4000
1060 GOSUB 63300: GOTO 1045
2000 GOSUB 60000: HOME
2010 PRINT "YOU ARE ON THE WEST SIDE OF THE CASTLE"
2015 HPLOT 0,120 TO 279,120: HPLOT 40,120 TO 40,0: HPLOT 0,40 TO 25,40 TO 25,70 TO 0,70
2025 HPLOT 120,120 TO 120,70 TO 180,70 TO 180,120: HPLOT 120,83 TO 180,83: HPLOT 120,96 TO 180,96: HPLOT 120,109 TO 180,109: HPLOT 140,70 TO 140,83: HPLOT 140,96 TO 140,109: HPLOT 160,70 TO 160,83: HPLOT 160,96 TO 160,109
2030 HPLOT 130,83 TO 130,96: HPLOT 130,109 TO 130,120: HPLOT 150,83 TO 150,96: HPLOT 150,109 TO 150,120: HPLOT 170,83 TO 170,96: HPLOT 170,109 TO 170,120
2040 HPLOT 150,20 TO 190,50 TO 188,50 TO 150,22 TO 112,50 TO 110,50 TO 150,20
2045 HPLOT 130,70 TO 130,38: HPLOT 135,70 TO 135,35: HPLOT 165,70 TO 165,35: HPLOT 170,70 TO 170,38: HPLOT 135,50 TO 165,50: HPLOT 135,55 TO 165,55: HPLOT 170,51 TO 175,51 TO 175,61 TO 178,61 TO 178,63 TO 173,63 TO 173,54 TO 170,54
2050 GOSUB 63000
2055 IF A$ = "E" THEN GOTO 100
2060 IF A$ = "W" THEN GOTO 3000
2070 IF A$ = "D" THEN GOTO 10000
2075 GOSUB 63300: GOTO 2050
3000 GOSUB 60000
3010 HPLOT 0,120 TO 279,120: HPLOT 50,0 TO 50,120: HPLOT 90,0 TO 90,120: HPLOT 65,0 TO 65,45 TO 75,45 TO 75,0
3020 HPLOT 90,50 TO 110,50 TO 110,20 TO 130,0: HPLOT 150,0 TO 170,20 TO 170,60 TO 110,60 TO 110,50: HPLOT 190,0 TO 190,120: HPLOT 230,0 TO 230,120: HPLOT 205,0 TO 205,45 TO 215,45 TO 215,0: HPLOT 190,50 TO 170,50
3030 HPLOT 155,120 TO 155,90 TO 125,90 TO 125,120: HPLOT 155,95 TO 125,95: HPLOT 155,100 TO 125,100: HPLOT 155,115 TO 125,115: HPLOT 155,110 TO 125,110: HPLOT 150,20 TO 150,40 TO 135,40 TO 135,20 TO 150,20
3040 GOSUB 63000
3045 IF A$ = "E" THEN GOTO 2000
3050 IF A$ = "S" THEN GOTO 7000
3060 GOSUB 63300: GOTO 3040
4000 GOSUB 60000
4010 PRINT "YOU ARE IN A LARGE HALLWAY WITH A ARROW ON THE WALL"
4015 HPLOT 0,00 TO 200,50: HPLOT 20,80 TO 140,90: HPLOT 130,80 TO 140,90: HPLOT 130,100 TO 140,90: HPLOT 0,159 TO 200,130: HPLOT 200,50 TO 200,130: HPLOT 279,130 TO 200,125: HPLOT 279,40 TO 200,60
4055 GOSUB 63000
4060 IF A$ = "S" THEN GOTO 1000
4065 IF A$ = "W" THEN GOTO 30000
4070 IF A$ = "N" THEN GOTO 7000
4080 GOSUB 63300: GOTO 4055
7000 GOSUB 60000
7010 PRINT "THERE IS A WINDOW HERE OVERLOOKING A COFFIN"
7015 HPLOT 30,30 TO 250,30 TO 250,120 TO 30,120 TO 30,30
7020 HPLOT 0,0 TO 30,30: HPLOT 279,0 TO 250,30: HPLOT 279,159 TO 250,120: HPLOT 0,159 TO 30,120
7030 HPLOT 128,80 TO 138,80 TO 170,70 TO 160,70 TO 128,80 TO 128,90 TO 138,90 TO 170,80 TO 170,70
7035 HPLOT 139,80 TO 139,90
7040 HPLOT 100,50 TO 200,50 TO 200,100 TO 100,100 TO 100,50
7045 HPLOT 105,55 TO 195,55 TO 195,95 TO 105,95 TO 105,55
7055 HPLOT 105,75 TO 195,75: HPLOT 135,55 TO 135,95: HPLOT 165,55 TO 165,95
7075 GOSUB 63000
7080 IF A$ = "S" THEN GOTO 4000
7085 IF A$ = "N" THEN GOTO 3000
7090 GOSUB 63300: GOTO 7075
9000 GOSUB 60000
9015 PRINT "YOU ARE AT THE END OF THE MAIN HALLWAY"
9020 HPLOT 0,159 TO 40,130 TO 40,20 TO 0,0
9025 HPLOT 40,20 TO 250,20 TO 250,130 TO 40,130
9030 HPLOT 279,0 TO 250,20: HPLOT 279,159 TO 250,130
9040 REM STAIRS
9050 HPLOT 100,130 TO 200,60 TO 200,20
9060 HPLOT 90,130 TO 90,120 TO 105,120 TO 105,110 TO 120,110 TO 120,100 TO 135,100 TO 135,90 TO 150,90 TO 150,80 TO 165,80 TO 165,70 TO 180,70 TO 180,60 TO 200,60
9070 HPLOT 92,120 TO 92,70 TO 95,68 TO 95,120
9080 HPLOT 107,110 TO 107,60 TO 110,58 TO 110,110
9090 HPLOT 122,100 TO 122,50 TO 125,48 TO 125,100
9100 HPLOT 137,90 TO 137,40 TO 140,38 TO 140,90
9110 HPLOT 152,80 TO 152,30 TO 155,28 TO 155,80
9120 HPLOT 167,70 TO 167,20 TO 170,20 TO 170,70
9130 HPLOT 182,60 TO 182,20 TO 185,20 TO 185,60
9150 HPLOT 92,70 TO 167,20
9200 HPLOT 60,100 TO 60,50 TO 88,50 TO 88,100 TO 60,100
9210 HPLOT 60,75 TO 88,75: HPLOT 74,50 TO 74,100
10000 REM COFFIN
10015 GOSUB 60000: HOME
10030 PRINT "YOU ARE IN A LARGE ROOM WITH A COFFIN"
10045 HPLOT 40,90 TO 40,130 TO 90,130 TO 90,90 TO 40,90
10060 HPLOT 40,85 TO 90,85 TO 90,90 TO 40,90 TO 40,85
10075 HPLOT 90,130 TO 200,85 TO 200,50 TO 90,90
10090 HPLOT 90,85 TO 200,45 TO 200,50
10105 HPLOT 200,45 TO 150,45 TO 40,85
10120 HPLOT 0,50 TO 150,10 TO 150,0 TO 150,10 TO 279,10
10135 HPLOT 110,100 TO 110,105 TO 120,100 TO 120,95
10150 HPLOT 140,85 TO 140,90 TO 150,85 TO 150,80
10165 HPLOT 170,75 TO 170,80 TO 180,75 TO 180,70
10180 HPLOT 55,100 TO 55,105 TO 68,105 TO 68,100
10195 IF OB(10) = 1 THEN GOSUB 10225
10196 GOSUB 63000
10197 IF A$ = "U" THEN GOTO 2000
10198 IF LEFT$(A$,4) = "CAST" THEN PRINT "NO I DON'T THINK I WILL LET YOU HERE": GOTO 10196
10200 IF A$ = "OPEN" AND IT(3) = 0 THEN PRINT "ITS LOCKED": GOTO 10196
10202 IF A$ = "UNLOCK" AND IT(2) = 0 THEN PRINT "YOU DON'T HAVE A KEY": GOTO 10196
10209 IF LEFT$(A$,6) = "UNLOCK" AND IT(3) = 1 THEN PRINT "ITS OPEN ";NA$: GOTO 10196
10210 IF LEFT$(A$,6) = "UNLOCK" AND IT(2) = 1 THEN GOSUB 10225: GOTO 10196
10224 GOSUB 63300: GOTO 10196
10225 HPLOT 150,63 TO 150,45 TO 130,25 TO 20,47 TO 40,85
10240 OB(10) = 1
10255 IF IT(3) = 0 THEN GOSUB 10300
10270 REM
10285 RETURN
10300 DRAW 25 AT 120,63: SCALE= 2: DRAW 25 AT 118,63
10302 PTS = PTS +10:IT(3) = 1: PRINT "YOU'VE FOUND OLDORF'S POWERFUL RING"
10303 GOSUB 45050
10310 XDRAW 25 AT 118,63: SCALE= 1: XDRAW 25 AT 120,63: DRAW 25 AT 120,63: SCALE= 2: DRAW 25 AT 118,63: GOSUB 45050: XDRAW 25 AT 118,63: SCALE= 1: XDRAW 25 AT 120,63
10315 RETURN
11000 GOSUB 60000
11005 PRINT "WIERD PLACE FOR STAIRS AIN'T IT!"
11020 PRINT "THESE STAIRS GO DOWN TO NEW CAVES"
11030 HPLOT 50,0 TO 50,159: HPLOT 100,0 TO 100,50 TO 50,55
11040 HPLOT 50,55 TO 60,53 TO 60,60 TO 70,60 TO 70,70 TO 80,70 TO 80,80 TO 90,80 TO 90,90 TO 100,90 TO 100,100 TO 110,100 TO 110,110
11050 HPLOT 100,50 TO 100,55 TO 110,55 TO 110,65 TO 120,65 TO 120,75 TO 130,75 TO 130,85 TO 140,85 TO 140,95 TO 150,95 TO 150,105
11060 HPLOT 60,60 TO 110,55: HPLOT 70,70 TO 120,65: HPLOT 80,80 TO 130,75: HPLOT 90,90 TO 140,85: HPLOT 100,100 TO 150,95: HPLOT 110,110 TO 150,105
11070 HPLOT 110,110 TO 110,120 TO 100,120 TO 100,130 TO 90,130 TO 90,140 TO 80,140 TO 80,150 TO 70,150 TO 70,159
11080 HPLOT 150,0 TO 150,159
11090 HPLOT 110,110 TO 150,120: HPLOT 110,120 TO 150,130: HPLOT 100,120 TO 150,140: HPLOT 100,130 TO 150,150: HPLOT 90,130 TO 150,159
11100 HPLOT 90,140 TO 140,159: HPLOT 80,140 TO 120,159: HPLOT 80,150 TO 100,159: HPLOT 70,150 TO 80,159
11110 HPLOT 100,45 TO 60,45 TO 60,40 TO 100,40: HPLOT 60,45 TO 50,47
11120 HPLOT 70,40 TO 70,35 TO 100,35: HPLOT 80,35 TO 80,30 TO 100,30: HPLOT 90,30 TO 90,25 TO 100,25
11130 HPLOT 200,100 TO 240,100 TO 240,50 TO 200,50 TO 200,100
11140 HPLOT 210,50 TO 210,90 TO 240,90
11150 HPLOT 200,100 TO 210,90
11160 HCOLOR= 5
11170 FOR X = 1 TO 3: HPLOT 220 -X,50 TO 220 -X,95: NEXT
11180 FOR X = 1 TO 3: HPLOT 230 -X,50 TO 230 -X,95: NEXT
11190 HCOLOR= 3
11200 IF IT(2) = 0 OR IT(3) = 0 OR IT(5) = 0 OR IT(4) = 0 THEN PRINT "WARNING:YOU HAVE NOT FOUND IT ALL"
11300 GOSUB 63000
11310 IF A$ = "U" THEN GOTO 41000
11320 IF A$ = "D" THEN GOTO 11400
11330 GOSUB 63300: GOTO 11300
11400 PRINT CHR$(4);"BLOAD CHAIN,A520"
11410 CALL 520"WIZARD3"
11420 END
30000 GOSUB 60000: HOME
30005 PRINT "YOU ARE AT THE NORTH END OF THE MAIN HALLWAY"
30010 GOSUB 30050
30015 HPLOT 130,40 TO 130,30 TO 140,30 TO 140,20 TO 150,20 TO 150,10 TO 160,10 TO 160,0: HPLOT 100,33 TO 130,33: HPLOT 135,30 TO 135,0: HPLOT 145,20 TO 145,0: HPLOT 155,10 TO 155,0
30020 GOSUB 63000
30025 IF A$ = "S" THEN GOTO 31000
30030 IF A$ = "W" THEN GOTO 38000
30035 IF A$ = "E" THEN GOTO 34000
30040 IF A$ = "S" THEN GOTO 100
30045 GOSUB 63300: GOTO 30020
30050 HCOLOR= 3
30055 HPLOT 0,159 TO 100,40 TO 180,40 TO 279,159: HPLOT 100,40 TO 100,0: HPLOT 180,40 TO 180,0
30060 HPLOT 30,159 TO 110,60 TO 175,60 TO 250,159
30065 FOR X = 1 TO 98 STEP 2
30070 HCOLOR= INT( RND(1) *5) +1
30075 HPLOT 30 +X,159 TO 110 +X,50 +X TO 175 -X,50 +X TO 250 -X,159
30080 HCOLOR= INT( RND(1) *5) +1: HPLOT 31 +X,159 TO 111 +X,51 +X TO 176 -X,51 +X TO 251 -X,159
30085 NEXT
30090 HCOLOR= 3: HPLOT 30,120 TO 30,50 TO 70,30 TO 70,75: HPLOT 52,40 TO 52,96: HPLOT 25,127 TO 25,45 TO 75,20 TO 75,71
30095 HPLOT 245,120 TO 245,50 TO 205,30 TO 205,70: HPLOT 250,120 TO 250,45 TO 200,22 TO 200,65: HPLOT 225,40 TO 225,95
30100 RETURN
31000 GOSUB 60000: HOME
31005 PRINT "YOU ARE AT THE SOUTH END OF THE MAIN HALLWAY"
31010 GOSUB 30050
31015 HPLOT 120,40 TO 120,10 TO 160,10 TO 160,40: HPLOT 140,10 TO 140,40: HPLOT 120,15 TO 160,15: HPLOT 120,20 TO 160,20: HPLOT 120,35 TO 160,35: HPLOT 120,30 TO 160,30: HPLOT 130,17: HPLOT 150,17: HPLOT 130,33: HPLOT 150,33
31020 GOSUB 63000
31025 IF A$ = "U" THEN GOTO 32000
31030 IF A$ = "W" THEN GOTO 39000
31035 IF A$ = "E" THEN GOTO 35000
31040 IF A$ = "N" THEN GOTO 30000
31045 GOSUB 63300: GOTO 31020
32000 GOSUB 60000: HOME
32005 PRINT "THIS IS THE UPSTAIRS HALLWAY"
32006 PRINT "SOMEBODY JUST SLAMMED A DOOR UP HERE"
32010 GOSUB 32050
32015 HPLOT 120,0 TO 120,30 TO 160,30 TO 160,0: HPLOT 140,0 TO 140,30: HPLOT 120,15 TO 160,15
32020 GOSUB 63000
32030 IF A$ = "W" THEN GOTO 40000
32035 IF A$ = "E" THEN PRINT "ITS A FALSE DOOR": GOTO 32020
32040 IF A$ = "D" THEN GOTO 31000
32045 GOSUB 63300: GOTO 32020
32050 HPLOT 0,159 TO 100,40 TO 180,40 TO 279,159: HPLOT 100,40 TO 100,0: HPLOT 180,40 TO 180,0
32055 HPLOT 30,159 TO 110,60 TO 175,60 TO 250,159
32060 FOR X = 1 TO 98 STEP 2
32065 HCOLOR= 4
32070 HPLOT 30 +X,159 TO 110 +X,50 +X TO 175 -X,50 +X TO 250 -X,159
32075 HCOLOR= 5: HPLOT 31 +X,159 TO 111 +X,51 +X TO 176 -X,51 +X TO 251 -X,159
32080 NEXT
32085 HCOLOR= 3: HPLOT 30,120 TO 30,50 TO 70,30 TO 70,75: HPLOT 52,40 TO 52,96: HPLOT 25,127 TO 25,45 TO 75,20 TO 75,71
32090 HPLOT 245,120 TO 245,50 TO 205,30 TO 205,70: HPLOT 250,120 TO 250,45 TO 200,22 TO 200,65: HPLOT 225,40 TO 225,95
32095 RETURN
34000 GOSUB 60000: HOME : PRINT "THIS IS THE LIBRARY"
34005 HPLOT 0,159 TO 70,80 TO 279,80: HPLOT 70,80 TO 70,0: HPLOT 20,159 TO 80,90 TO 279,90: HPLOT 0,60 TO 30,45 TO 30,125 TO 0,125
34010 GOSUB 34070
34015 IF BK < >0 THEN GOSUB 34095
34020 GOSUB 63000
34025 IF A$ = "W" THEN GOTO 30000
34030 IF A$ = "N" THEN GOTO 35000
34035 IF A$ = "E" AND BK < >0 OR A$ = "ENTER" AND BK < >0 THEN GOTO 37000
34040 IF A$ = "E" AND BK = 0 THEN PRINT "WOW YOU JUST CRASHED INTO THE BOOKCASE I HOPE YOUR O.K.": GOTO 34020
34045 IF LEFT$(A$,4) = "READ" AND IT(3) = 0 THEN PRINT "ONLY WITH THE POWER OF THE RING MAY YOU READ THESE BOOKS": GOTO 34020
34050 IF LEFT$(A$,4) = "READ" AND IT(3) = 1 THEN PRINT "READING THE ANCIENT SCRIPTS REVEALS ONLY ONE WORD...'MALANTHIUS'": GOTO 34020
34055 IF A$ = "MALANTHIUS" AND IT(3) = 1 THEN HCOLOR= 0: GOSUB 34070: HCOLOR= 3:BK = 70: GOSUB 34070: GOSUB 34095: GOTO 34020
34060 IF LEFT$(A$,4) = "OPEN" OR LEFT$(A$,6) = "UNLOCK" OR LEFT$(A$,4) = "MOVE" THEN PRINT "MORTAL MEN WITH MORTAL POWERS SHALL NOT SEE THESE SECRETS": GOTO 34020
34065 GOSUB 63300: GOTO 34020
34070 HPLOT 71 +BK,79 TO 71 +BK,1 TO 151 +BK,1 TO 151 +BK,79 TO 71 +BK,79: HPLOT 110 +BK,1 TO 110 +BK,79: HPLOT 71 +BK,20 TO 151 +BK,20: HPLOT 71 +BK,40 TO 151 +BK,40: HPLOT 71 +BK,60 TO 151 +BK,60
34075 HPLOT 110 +BK,25 TO 115 +BK,25 TO 115 +BK,40: HPLOT 115 +BK,30 TO 118 +BK,30 TO 118 +BK,40: HPLOT 118 +BK,32 TO 120 +BK,32 TO 120 +BK,40
34080 HPLOT 71 +BK,45 TO 76 +BK,45 TO 76 +BK,60: HPLOT 76 +BK,45 TO 76 +BK,42 TO 80 +BK,42 TO 80 +BK,60: HPLOT 80 +BK,50 TO 83 +BK,50 TO 83 +BK,60
34085 HPLOT 135 +BK,60 TO 135 +BK,55 TO 140 +BK,55 TO 140 +BK,60: HPLOT 140 +BK,55 TO 140 +BK,50 TO 145 +BK,50 TO 145 +BK,60: HPLOT 145 +BK,50 TO 145 +BK,45 TO 151 +BK,45
34090 RETURN
34095 HPLOT 80,79 TO 80,30 TO 130,30 TO 130,79 TO 80,70
34100 RETURN
35000 GOSUB 60000: HOME
35005 PRINT "THIS IS THE DINING ROOM"
35010 HPLOT 0,159 TO 50,50 TO 230,50 TO 279,159: HPLOT 50,50 TO 50,0: HPLOT 230,50 TO 230,0: HPLOT 120,50 TO 120,10 TO 160,10 TO 160,50: HPLOT 140,10 TO 140,50: HPLOT 20,140 TO 260,140 TO 220,60 TO 60,60 TO 20,140
35015 HPLOT 135,100 TO 110,100 TO 115,80 TO 175,80 TO 180,100 TO 155,100: HPLOT 110,100 TO 110,120: HPLOT 180,100 TO 180,120: HPLOT 135,120 TO 135,90 TO 155,90 TO 155,120: HPLOT 135,110 TO 155,110
35020 HPLOT 120,80 TO 120,70 TO 135,70 TO 135,80: HPLOT 150,80 TO 150,70 TO 165,70 TO 165,80
35025 GOSUB 63000
35030 IF A$ = "S" THEN GOTO 34000
35035 IF A$ = "W" THEN GOTO 31000
35045 GOSUB 63300: GOTO 35025
37000 GOSUB 60000: HOME
37005 PRINT "YOU ARE IN A SMALL SECRET ROOM BEHIND THE BOOKCASE"
37010 HPLOT 279,159 TO 230,70 TO 0,70: HPLOT 230,70 TO 230,0: HPLOT 150,70 TO 150,30 TO 190,30 TO 190,70: HPLOT 150,70 TO 190,50
37015 IF IT(5) = 0 THEN PRINT "THERE IS A VALUABLE BOOK HERE"
37020 IF IT(5) = 0 THEN GOSUB 37055: HCOLOR= 5: GOSUB 37060: HCOLOR= 3: GOSUB 45050: FOR I = 1 TO 1000: NEXT I:IT(5) = 1: HCOLOR= 0: GOSUB 37055: GOSUB 37060:PTS = PTS +10
37025 GOSUB 63000
37030 IF A$ = "S" OR A$ = "EXIT" THEN GOTO 34000
37045 IF LEFT$(A$,4) = "READ" THEN PRINT "THIS IS A FIRST EDITION OF THE BOOK 'CARE AND FEEDING OF ELVES'": GOTO 37025
37050 GOSUB 63300: GOTO 37025
37055 HPLOT 100,130 TO 100,100 TO 120,100 TO 120,130 TO 100,130: RETURN
37060 FOR X = 1 TO 29 STEP 1: HPLOT 101,130 -X TO 119,130 -X: NEXT : RETURN
37065 RETURN
38000 GOSUB 60000: HOME : PRINT "THIS IS A NICE KITCHEN"
38005 HPLOT 0,159 TO 70,80 TO 70,0: HPLOT 30,125 TO 30,50 TO 60,35 TO 60,92: HPLOT 60,92 TO 50,92 TO 30,115: HPLOT 48,95 TO 38,95 TO 30,105: HPLOT 70,80 TO 90,80 TO 90,50 TO 240,50 TO 240,90 TO 90,90 TO 90,80
38010 HPLOT 90,50 TO 130,40 TO 279,40 TO 240,50: HPLOT 240,90 TO 279,80: HPLOT 90,60 TO 240,60: HPLOT 165,60 TO 165,90: HPLOT 127,50 TO 127,90: HPLOT 202,50 TO 202,90: HPLOT 155,47 TO 175,47 TO 188,42 TO 168,42 TO 155,47: HPLOT 168,42 TO 168,47
38015 HPLOT 100,0 TO 100,30 TO 130,30 TO 130,0: HPLOT 130,30 TO 143,20 TO 143,0: HPLOT 220,0 TO 220,30 TO 250,30 TO 250,0: HPLOT 250,30 TO 263,20 TO 263,0: HPLOT 155,0 TO 155,20 TO 210,20 TO 210,0: HPLOT 182,0 TO 182,20: HPLOT 155,9 TO 210,9
38020 GOSUB 63000
38025 IF A$ = "D" THEN GOTO 43000
38030 IF A$ = "E" THEN GOTO 30000
38035 IF A$ = "N" THEN GOTO 39000
38040 IF LEFT$(A$,4) = "OPEN" THEN PRINT "THEY'RE ALL EMPTY": GOTO 38020
38045 GOSUB 63300: GOTO 38020
39000 GOSUB 60000: HOME : PRINT "THIS IS THE LIVING ROOM"
39005 HPLOT 0,159 TO 50,50 TO 230,50 TO 279,159: HPLOT 50,50 TO 50,0: HPLOT 230,50 TO 230,0: HPLOT 20,139 TO 55,70 TO 225,70 TO 259,139 TO 20,139
39010 HPLOT 110,50 TO 110,25 TO 170,25 TO 170,50: HPLOT 130,50 TO 130,35 TO 150,35 TO 150,50: HPLOT 130,25 TO 130,0: HPLOT 150,25 TO 150,0
39015 HPLOT 70,60 TO 70,40 TO 90,40 TO 90,60: HPLOT 70,45 TO 90,45: HPLOT 77,40 TO 77,30 TO 82,30 TO 82,40: HPLOT 80,30 TO 90,30 TO 85,20 TO 75,20 TO 70,30 TO 80,30
39020 HPLOT 190,60 TO 190,40 TO 210,40 TO 210,60: HPLOT 190,45 TO 210,45: HPLOT 200,30 TO 210,30 TO 205,20 TO 195,20 TO 190,30 TO 200,30: HPLOT 197,40 TO 197,30 TO 202,30 TO 202,40
39025 HPLOT 20,114 TO 20,50 TO 40,30 TO 40,73: HPLOT 30,40 TO 30,90: HPLOT 250,50 TO 250,30 TO 270,70 TO 270,90 TO 250,50
39030 HPLOT 250,40 TO 270,80: HPLOT 260,53 TO 260,67: HPLOT 70,110 TO 100,120 TO 120,90 TO 90,80 TO 70,110: HPLOT 70,110 TO 70,115 TO 75,115 TO 75,111: HPLOT 98,119 TO 98,124 TO 102,124 TO 102,119: HPLOT 120,90 TO 120,98 TO 117,98 TO 117,95
39035 HPLOT 170,120 TO 170,105 TO 185,105 TO 185,95 TO 190,95 TO 190,120 TO 170,120: HPLOT 125,100 TO 125,85 TO 140,85 TO 140,75 TO 145,75: HPLOT 125,100 TO 130,100 TO 130,90 TO 140,90 TO 140,85
39040 HPLOT 130,90 TO 170,110: HPLOT 130,95 TO 170,115: HPLOT 140,90 TO 174,105: HPLOT 185,95 TO 140,75: HPLOT 190,95 TO 145,75: HPLOT 150,80 TO 150,95 TO 140,95 TO 140,100: HPLOT 170,90 TO 170,105 TO 160,105 TO 160,110
39045 GOSUB 63000
39050 IF A$ = "S" THEN GOTO 38000
39055 IF A$ = "E" THEN GOTO 31000
39060 GOSUB 63300: GOTO 39045
40000 GOSUB 60000: HOME
40005 PRINT "YOU'RE IN THE MASTER BEDROOM"
40010 HPLOT 0,159 TO 70,70 TO 279,70: HPLOT 70,70 TO 70,0: HPLOT 30,159 TO 85,80 TO 279,80: HPLOT 230,70 TO 230,20 TO 270,20 TO 270,70: HPLOT 235,70 TO 235,25 TO 265,25 TO 265,70: HPLOT 260,40 TO 260,45: HPLOT 30,120 TO 30,50 TO 60,20 TO 60,80: HPLOT 45,35 TO 45,100
40015 HPLOT 150,50 TO 190,50 TO 190,20 TO 150,20 TO 150,50: HPLOT 145,55 TO 195,55 TO 195,15 TO 145,15 TO 145,55: HPLOT 170,50 TO 170,20: HPLOT 150,35 TO 190,35
40020 HPLOT 100,90 TO 120,090 TO 116,85 TO 105,85 TO 100,090: HPLOT 110,87 TO 110,37: HPLOT 100,37 TO 120,37 TO 115,17 TO 105,17 TO 100,37
40025 HPLOT 279,130 TO 230,130: HPLOT 279,140 TO 230,140: HPLOT 230,150 TO 230,120 TO 225,120 TO 225,150 TO 230,150: HPLOT 230,130 TO 240,117 TO 279,117: HPLOT 237,120 TO 237,110 TO 242,110 TO 242,117
40030 GOSUB 63000
40035 IF A$ = "E" THEN GOTO 32000
40040 IF A$ = "N" THEN GOTO 41000
40050 IF LEFT$(A$,4) = "MOVE" THEN PRINT "FORGET IT, I JUST GOT ALL THE STUFF ARRANGED": GOTO 40030
40055 GOSUB 63300: GOTO 40030
41000 GOSUB 60000: HOME
41005 PRINT "YOU ARE IN THE CLOSET"
41010 HPLOT 0,159 TO 50,130 TO 230,130 TO 279,159: HPLOT 50,130 TO 50,35: HPLOT 230,130 TO 230,35: HPLOT 50,30 TO 50,0: HPLOT 230,30 TO 230,0: HPLOT 40,30 TO 240,30 TO 240,35 TO 40,35 TO 40,30
41015 GOSUB 63000
41020 IF A$ = "U" AND CH < >4 THEN PRINT "YOU AREN'T STRONG ENOUGH TO LIFT YOURSELF UP THERE"
41021 IF A$ = "U" AND CH = 4 THEN GOTO 42000
41025 IF A$ = "S" THEN GOTO 40000
41027 IF A$ = "D" THEN GOTO 11000
41030 GOSUB 63300: GOTO 41015
42000 GOSUB 60000: HOME
42005 HPLOT 80,159 TO 200,159 TO 200,0 TO 80,0 TO 80,159
42010 HPLOT 80,159 TO 100,80 TO 100,0
42015 HPLOT 200,159 TO 180,80 TO 180,0
42020 HPLOT 180,80 TO 100,80
42025 HPLOT 160,60 TO 120,60 TO 120,20 TO 160,20 TO 160,60
42030 HPLOT 140,60 TO 140,20: HPLOT 120,40 TO 160,40
42035 PRINT "YOU ARE IN A SMALL ROOM ABOVE THE CLOSET"
42040 IF IT(4) = 0 THEN PRINT "HURRAH 5 GOLD COINS"
42042 IF IT(4) = 0 THEN H = 100:G = 110: GOSUB 63800: GOSUB 45050: FOR I = 1 TO 1000: NEXT I:PTS = PTS +5: HCOLOR= 0: GOSUB 63800:IT(4) = 1:GT = GT +5
42050 GOSUB 63000
42055 IF A$ = "D" THEN GOTO 41000
42075 GOSUB 63300: GOTO 42050
43000 GOSUB 60000: HOME
43005 PRINT "YOU ARE IN THE BASEMENT. THERE IS WRITING IN THE DIRT"
43010 HPLOT 0,159 TO 50,70 TO 230,70 TO 279,159: HPLOT 50,70 TO 50,0: HPLOT 230,70 TO 230,0: HPLOT 120,70 TO 120,30 TO 160,30 TO 160,70: HPLOT 115,70 TO 115,25 TO 165,25 TO 165,70: HPLOT 160,70 TO 120,60
43015 HPLOT 240,90 TO 240,50 TO 260,70 TO 260,122: HPLOT 240,90 TO 250,90 TO 250,80 TO 260,80: HPLOT 250,90 TO 260,103: HPLOT 250,80 TO 260,93
43020 IF OB(9) = 0 THEN GOSUB 43100
43025 IF OB(9) = 1 THEN GOSUB 43080
43030 GOSUB 63000
43035 IF A$ = "N" THEN GOTO 44000
43040 IF A$ = "U" THEN GOTO 38000
43045 IF A$ = "READ" AND OB(9) = 1 OR A$ = "TRANSLATE" AND OB(9) = 1 THEN PRINT "THIS AIN'T A BOOK YA KNOW": GOTO 43030
43060 IF A$ = "READ" OR A$ = "TRANSLATE" THEN HCOLOR= 0: GOSUB 43100: HCOLOR= 3: GOSUB 43080: GOTO 43030
43065 IF A$ = "SHAZAM" THEN PRINT "NOTHING HAPPENS": GOTO 43030
43070 IF A$ = "DIG" THEN PRINT "IF I LET YOU DO THAT IT WILL JUST MESS UP THE WRITING": GOTO 43030
43075 GOSUB 63300: GOTO 43030
43080 HPLOT 95,100 TO 100,100 TO 100,95 TO 95,95 TO 95,90 TO 100,90: HPLOT 105,90 TO 105,100: HPLOT 115,90 TO 115,100: HPLOT 105,95 TO 115,95
43085 HPLOT 120,100 TO 120,90 TO 125,90 TO 125,100: HPLOT 120,95 TO 125,95: HPLOT 130,90 TO 135,90 TO 130,100 TO 135,100: HPLOT 140,100 TO 140,90 TO 145,90 TO 145,100: HPLOT 140,95 TO 145,95
43090 HPLOT 150,100 TO 150,90 TO 155,95 TO 160,90 TO 160,100
43095 OB(9) = 1: RETURN
43100 HPLOT 100,100 TO 95,100 TO 95,90 TO 100,90: HPLOT 105,100 TO 110,100 TO 110,90 TO 105,90: HPLOT 115,90 TO 115,100
43105 HPLOT 120,100 TO 120,90 TO 130,90 TO 130,100 TO 120,100: HPLOT 140,90 TO 145,90 TO 145,100 TO 140,100: HPLOT 140,95 TO 145,95: HPLOT 150,90 TO 155,90 TO 155,100: HPLOT 125,92: HPLOT 125,97
43110 RETURN
44000 GOSUB 60000: HOME
44005 PRINT "THERE IS A WALL HERE AND FOOTPRINTS IN THE DIRT"
44010 HPLOT 0,159 TO 50,100 TO 279,100
44015 HPLOT 50,100 TO 50,0: HPLOT 50,80 TO 279,80: HPLOT 50,60 TO 279,60: HPLOT 50,40 TO 279,40: HPLOT 50,20 TO 279,20
44020 HPLOT 70,40 TO 70,60: HPLOT 120,40 TO 120,60: HPLOT 170,40 TO 170,60: HPLOT 220,40 TO 220,60
44025 HPLOT 70,0 TO 70,20: HPLOT 120,0 TO 120,20: HPLOT 170,0 TO 170,20: HPLOT 220,0 TO 220,20: HPLOT 70,80 TO 70,100: HPLOT 120,80 TO 120,100: HPLOT 170,80 TO 170,100: HPLOT 220,80 TO 220,100
44030 HPLOT 90,20 TO 90,40: HPLOT 140,20 TO 140,40: HPLOT 190,20 TO 190,40: HPLOT 240,20 TO 240,40: HPLOT 90,60 TO 90,80: HPLOT 140,60 TO 140,80: HPLOT 190,60 TO 190,80: HPLOT 240,60 TO 240,80
44035 FOR I = 1 TO 50 STEP 4: HPLOT 101 -I,101 +I: HPLOT 126 -I,101 +I: NEXT
44040 GOSUB 63000
44045 IF A$ = "S" THEN GOTO 43000
44050 IF A$ = "SHAZAM" AND OB(9) = 0 THEN PRINT "YOU BETTER GO BACK AND READ THE DIRT FIRST": GOTO 44040
44052 IF A$ = "SHAZAM" AND CH < >5 THEN PRINT "THE ";CH$;" MAY NOT USE THAT WORD": GOTO 44040
44055 IF A$ = "N" THEN PRINT "OUCH! YOU JUST BUMPED YOUR NOSE ON THE WALL": GOTO 44040
44060 IF A$ = "SHAZAM" THEN GOTO 45000
44065 IF A$ = "OPEN" OR A$ = "UNLOCK" OR A$ = "SCALE" THEN PRINT "YOU'LL BE ABLE TO GO RIGHT THRU IT IF YOU SAY THE RIGHT THING": GOTO 44040
44070 IF A$ = "ABRA CADABRA" OR A$ = "HOCUS POCUS" OR A$ = "OPEN SESAME" THEN PRINT "CLOSE BUT NO PRIZE": GOTO 44040
44075 IF LEFT$(A$,4) = "CAST" THEN FOR I = 1 TO 4: SCALE= 1: ROT= I *16: DRAW 19 AT 140,100: POKE 783,100: POKE 769,01: POKE 771,50: CALL 768: NEXT I:ST = ST -8: GOSUB 63650: GOTO 45000
44080 GOSUB 63300: GOTO 44040
45000 GOSUB 60000: HOME
45005 PRINT "HURRAH YOU MADE IT BEHIND THE WALL"
45010 HPLOT 0,159 TO 50,50 TO 279,50: HPLOT 50,50 TO 50,0
45015 IF IT(2) = 0 THEN PRINT "YOU'VE FOUND THE SKELETON KEY"
45020 IF IT(2) = 0 THEN DRAW 5 AT 140,100: GOSUB 45050: XDRAW 5 AT 140,100:IT(2) = 1:PTS = PTS +10
45025 GOSUB 63000
45030 IF A$ = "S" OR A$ = "SHAZAM" THEN GOTO 44000
45035 REM
45040 REM
45045 GOSUB 63300: GOTO 45025
45050 GOSUB 62500
45055 RETURN
60000 REM BORDER
60004 POKE 34,20: HOME : SCALE= 1: ROT= 0:I = 0:X = 0
60010 HGR : HCOLOR= 3:: HPLOT 0,0 TO 0,159: HPLOT 0,0 TO 0,159: HPLOT 0,0 TO 279,0: HPLOT 0,159 TO 279,159: HPLOT 279,0 TO 279,159: RETURN
62000 PRINT CHR$(4);"OPEN WIZ.SAVE"
62005 PRINT CHR$(4);"WRITE WIZ.SAVE"
62010 PRINT MOVE: PRINT PTS: PRINT ST: PRINT CH: PRINT CH$: PRINT GT
62015 FOR I = 1 TO 15: PRINT OB(I): NEXT I
62016 FOR I = 1 TO 10: PRINT GL(I): NEXT I
62020 FOR I = 1 TO 6: PRINT C1$(I): NEXT I
62025 FOR I = 1 TO 4: PRINT C2$(I): NEXT I
62030 FOR I = 1 TO 4: PRINT C3$(I): NEXT I
62035 FOR I = 1 TO 5: PRINT C4$(I): NEXT I
62036 FOR I = 1 TO 15: PRINT IT(I): PRINT TR(I): NEXT I
62040 PRINT C1: PRINT C2: PRINT C3: PRINT C4: PRINT C5: PRINT C6: PRINT C7
62042 PRINT GAME: PRINT PILL: PRINT L1: PRINT L2: PRINT L3: PRINT L4: PRINT L5: PRINT MX
62043 PRINT R1: PRINT R2: PRINT R3: PRINT R4: PRINT R5: PRINT R6
62045 PRINT CHR$(4);"CLOSE WIZ.SAVE"
62050 END
62055 PRINT "DO YOU WANT TO SAVE THIS GAME?? Y/N"
62060 INPUT A$
62065 IF A$ < >"Y" AND A$ < >"N" THEN GOTO 62055
62070 IF A$ = "Y" THEN GOTO 62000
62073 PRINT "YOUR SCORE WAS ";PTS;" THIS RATES YOU AS A ";
62075 IF PTS >260 THEN PRINT "GRAND POOBAH WIZARD": GOTO 62199
62076 IF PTS >200 THEN PRINT "GENIUS WIZARD": GOTO 62199
62077 IF PTS >150 THEN PRINT "EXPIERENCED WIZARD": GOTO 62199
62078 IF PTS >70 THEN PRINT "LEARNING WIZARD": GOTO 62199
62079 PRINT "NOVICE WIZARD"
62199 END
62500 FOR I = 1 TO 4: FOR X = 1 TO 5: POKE 0,I +X *15: POKE 1,20: CALL 800: NEXT X: NEXT I: RETURN
62510 FOR I = 1 TO 4: FOR X = 1 TO 5: POKE 0,200 +(X *5): POKE 1,50: CALL 800: NEXT X: NEXT I: RETURN
62530 END
62550 END
63000 INPUT A$
63005 IF A$ = "C" THEN GOSUB 63400: POKE 34,20: HOME : POKE -16304,0: GOTO 63000
63010 IF A$ = "QUIT" OR A$ = "SAVE" OR A$ = "STOP" OR A$ = "END" THEN GOTO 62055
63011 IF LEFT$(A$,3) = "EAT" AND IT(6) = 1 THEN RT = 99: GOSUB 63400:IT(6) = 2: GOTO 63020
63012 IF LEFT$(A$,3) = "EAT" AND IT(7) = 1 THEN RT = 99: GOSUB 63400:IT(7) = 2: GOTO 63020
63013 IF LEFT$(A$,3) = "EAT" AND IT(8) = 1 THEN RT = 99: GOSUB 63400:IT(8) = 2: GOTO 63020
63015 IF A$ < >"" THEN GOTO 63135
63020 TEXT : HOME : POKE -16300,0: POKE -16303,0
63025 PRINT TAB( 15)"POINTS =";PTS
63030 PRINT TAB( 15)"MOVES =";MOVE
63035 PRINT TAB( 15)"STRENGTH=";ST
63040 PRINT TAB( 15)"CHAR =";CH$
63045 PRINT "YOU ARE CARRYING:": PRINT
63050 IF GT >0 THEN PRINT GT;" GOLD COINS"
63060 IF IT(5) = 1 THEN PRINT "VALUABLE BOOK"
63065 IF IT(1) = 1 THEN PRINT "POWERFUL SWORD"
63070 IF IT(2) = 1 THEN PRINT "SKELETON KEY"
63075 IF IT(3) = 1 THEN PRINT "OLDORF'S RING"
63077 IF IT(6) = 1 THEN PRINT "1ST MAGIC MUSHROOM"
63078 IF IT(7) = 1 THEN PRINT "2ND MAGIC MUSHROOM"
63079 IF IT(8) = 1 THEN PRINT "3RD MAGIC MUSHROOM"
63080 VTAB (7): HTAB (20)
63085 HTAB (20): IF TR(1) = 1 THEN PRINT "VALUABLE CROSS"
63090 HTAB (20): IF TR(2) = 1 THEN PRINT "LARGE DIAMOND"
63095 HTAB (20): IF TR(3) = 1 THEN PRINT "GOLD BAR"
63100 HTAB (20): IF TR(4) = 1 THEN PRINT "OXYX'S SCEPTOR"
63101 HTAB (20): IF TR(5) = 1 THEN PRINT "TINY KEY"
63102 HTAB (20): IF TR(8) = 1 THEN PRINT "ICKYUP'S RUBY FORTUNE"
63103 HTAB (20): IF TR(7) = 1 THEN PRINT "ZIT'S NECKLACE"
63104 HTAB (20): IF TR(11) = 1 THEN PRINT "LYNXOR'S TREASURE"
63105 HTAB (1): POKE 34,21: VTAB (22)
63110 INPUT A$
63115 IF A$ = "QUIT" OR A$ = "SAVE" OR A$ = "STOP" OR A$ = "END" THEN GOTO 62055
63120 POKE 34,20: HOME
63125 POKE -16304,0
63130 GOTO 63000
63135 MOVE = MOVE +1
63140 IF LEFT$(A$,4) = "CAST" AND CH < >7 THEN PRINT "THAT IS NOT WITHIN THE ";CH$;"'S POWER": GOTO 63000
63145 IF LEFT$(A$,5) = "MAGIC" AND CH < >5 THEN PRINT "THAT IS NOT WITHIN THE ";CH$;"'S POWER": GOTO 63000
63150 FOR I = 1 TO 6: IF LEFT$(A$,4) = C1$(I) AND CH < >1 THEN GOTO 63195
63155 NEXT I
63160 FOR I = 1 TO 4: IF LEFT$(A$,4) = C2$(I) AND CH < >2 THEN GOTO 63195
63165 NEXT I
63170 FOR I = 1 TO 4: IF LEFT$(A$,4) = C3$(I) AND CH < >3 THEN GOTO 63195
63175 NEXT I
63180 FOR I = 1 TO 5: IF LEFT$(A$,4) = C4$(I) AND CH < >4 THEN GOTO 63195
63185 NEXT I
63190 RETURN
63195 PRINT "THAT IS NOT WITHIN THE ";CH$;"'S POWER": GOTO 63000
63300 IF LEN(A$) = 1 THEN PRINT "CHOOSE ANOTHER DIRECTION": RETURN
63320 IF LEFT$(A$,3) = "GET" THEN PRINT "DON,T BE RIDICULOUS": RETURN
63330 PRINT "I CAN'T DO THAT HERE ";NA$: RETURN
63400 TEXT : HOME : POKE -16300,0: POKE -16303,0: PRINT TAB( 15)"POINTS ="PTS
63410 PRINT TAB( 15)"MOVES =";MOVE
63420 PRINT TAB( 15)"STRENGTH=";ST
63430 PRINT TAB( 15)"CHAR =";CH$
63440 PRINT
63450 PRINT TAB( 15)"1.CLERIC ";C1
63460 PRINT TAB( 15)"2.THIEF ";C2
63470 PRINT TAB( 15)"3.GLADIATOR ";C3
63480 PRINT TAB( 15)"4.STRONGMAN ";C4
63490 PRINT TAB( 15)"5.MAGICIAN ";C5
63500 PRINT TAB( 15)"6.ELF ";C6
63510 PRINT TAB( 15)"7.WIZARD ";C7
63520 PRINT
63530 IF CH$ = "????" THEN PRINT "YOU MUST CHOOSE A CHARACTER TO START AS"
63540 PRINT "WHAT CHARACTER DO YOU WISH TO CHANGE TO?": PRINT " ENTER 1 THRU 7 ONLY C/R=RETURN"
63550 INPUT A$:CK = VAL(A$): IF A$ = "" AND CH$ < >"????" THEN RETURN
63560 IF CK <1 OR CK >7 THEN PRINT "I DON,T SEE A ";A$;" CHOICE": CALL 65338: CALL 65338: CALL 65338: FOR X = 1 TO 1000: NEXT : GOTO 63400
63565 CH = CK
63566 IF RT = 99 THEN GOTO 63950: REM MUSHROOM
63570 IF CH = 1 AND C1 < >0 THEN C1 = C1 -1:CH$ = "CLERIC": GOTO 63650
63580 IF CH = 2 AND C2 < >0 THEN C2 = C2 -1:CH$ = "THIEF": GOTO 63650
63590 IF CH = 3 AND C3 < >0 THEN C3 = C3 -1:CH$ = "GLADIATOR": GOTO 63650
63600 IF CH = 4 AND C4 < >0 THEN C4 = C4 -1:CH$ = "STRONGMAN": GOTO 63650
63610 IF CH = 5 AND C5 < >0 THEN C5 = C5 -1:CH$ = "MAGICIAN": GOTO 63650
63620 IF CH = 6 AND C6 < >0 THEN C6 = C6 -1:CH$ = "ELF": GOTO 63650
63630 IF CH = 7 AND C7 < >0 THEN C7 = C7 -1:CH$ = "WIZARD": GOTO 63650
63640 PRINT "YOU HAVE USED UP THAT GUY!!": CALL 65338: CALL 65338: CALL 65338: FOR I = 1 TO 1000: NEXT : GOTO 63400
63650 ST = ST -2: IF ST <1 THEN GOTO 63700
63660 RETURN
63700 REM
63710 PRINT "YOU ARE TOO WEAK TO CONTINUE"
63720 PRINT "THIS WILL BE YOUR FINAL RESTING PLACE"
63730 PRINT "GAME OVER!! STRENGTH = 000": END
63800 HPLOT 1 +G,0 +H TO 5 +G,0 +H TO 5 +G,15 +H TO 1 +G,15 +H TO 1 +G,0 +H: HPLOT 1 +G,3 +H TO 5 +G,3 +H: HPLOT 1 +G,6 +H TO 5 +G,6 +H: HPLOT 1 +G,10 +H TO 5 +G,10 +H: RETURN
63900 REM TONES
63910 FOR I = 1 TO 22: READ A: POKE 767 +I,A: NEXT
63920 FOR I = 1 TO 19: READ A: POKE 799 +I,A: NEXT
63925 RETURN
63930 DATA 160,14,162,00,138,24,233,01,208,252,141,48,192,232,224,140,208,242,136,208,237,96
63940 DATA 173,48,192,136,208,4,198,1,240,8,202,208,246,166,0,76,32,03,96
63950 IF CH = 1 THEN CH$ = "CLERIC"
63952 IF CH = 2 THEN CH$ = "THIEF"
63954 IF CH = 3 THEN CH$ = "GLADIATOR"
63956 IF CH = 4 THEN CH$ = "STRONGMAN"
63958 IF CH = 5 THEN CH$ = "MAGICIAN"
63960 IF CH = 6 THEN CH$ = "ELF"
63962 IF CH = 7 THEN CH$ = "WIZARD"
63964 RT = 00: GOTO 63650
Text found in Wizard_I_1980_Highlands_Computer_Services.do/WIZARD3.bas:
10 POKE 34,20: HOME : GOSUB 63900:GAME = 3
20 GOTO 50000
100 GOSUB 60000: HOME
102 PRINT "WELCOME TO THE LAND OF OXYX"
104 HPLOT 70,130 TO 220,130 TO 220,30 TO 70,30 TO 70,130: HPLOT 90,130 TO 90,50 TO 200,50 TO 200,130: HPLOT 90,130 TO 200,100: HPLOT 0,100 TO 70,100: HPLOT 220,130 TO 279,100: HPLOT 220,30 TO 279,0: HPLOT 70,30 TO 130,0
106 GOSUB 63000
108 IF A$ = "N" THEN GOTO 200
110 IF A$ = "U" THEN GOTO 52000
120 GOSUB 63300: GOTO 106
200 GOSUB 60000: HOME
203 PRINT "STAIRS TO WHERE I WONDER"
206 HPLOT 0,50 TO 30,60 TO 20,70 TO 220,110 TO 200,120 TO 279,140: HPLOT 20,70 TO 20,159: HPLOT 200,120 TO 200,159
209 HPLOT 110,87 TO 110,100 TO 100,100 TO 100,110 TO 90,110 TO 90,120 TO 80,120 TO 80,130 TO 70,130 TO 70,140 TO 60,140 TO 60,150 TO 50,150 TO 50,155 TO 40,155 TO 40,159
212 HPLOT 140,95 TO 140,105 TO 130,105 TO 130,115 TO 120,115 TO 120,125 TO 110,125 TO 110,135 TO 100,135 TO 100,145 TO 90,145 TO 90,155 TO 80,155 TO 80,159
215 HPLOT 100,100 TO 130,105: HPLOT 90,110 TO 120,115: HPLOT 80,120 TO 110,125: HPLOT 70,130 TO 100,135: HPLOT 60,140 TO 90,145: HPLOT 50,150 TO 80,155: HPLOT 40,155 TO 45,159: HPLOT 140,95 TO 140,159
218 HPLOT 90,20 TO 180,30: HPLOT 90,10 TO 180,20: HPLOT 100,3 TO 190,13: HPLOT 90,20 TO 90,10 TO 100,3: HPLOT 180,30 TO 180,20 TO 190,13 TO 190,23 TO 180,30
221 HPLOT 100,70 TO 100,20: HPLOT 105,75 TO 105,22: HPLOT 110,75 TO 110,23: HPLOT 100,70 TO 105,75 TO 110,75
224 HPLOT 150,75 TO 150,27: HPLOT 155,80 TO 155,27: HPLOT 160,80 TO 160,28: HPLOT 150,75 TO 155,80 TO 160,80
227 GOSUB 63000
230 IF A$ = "U" OR A$ = "CLIMB" THEN GOTO 600
233 IF A$ = "S" THEN GOTO 100
245 GOSUB 63300: GOTO 227
600 GOSUB 60000: HOME
610 PRINT "THIS IS THE PLAINS OF OXYXIDIES"
620 HPLOT 0,140 TO 279,140: HPLOT 0,90 TO 279,90: HPLOT 0,65 TO 75,65: HPLOT 115,65 TO 279,65: HPLOT 0,52 TO 83,52: HPLOT 115,52 TO 279,52: HPLOT 0,47 TO 86,47: HPLOT 115,47 TO 279,47
630 HPLOT 0,40 TO 90,40: HPLOT 115,40 TO 279,40: HPLOT 135,40 TO 110,159: HPLOT 145,40 TO 170,159: HPLOT 125,40 TO 80,159: HPLOT 155,40 TO 195,159: HPLOT 105,90 TO 105,60: HPLOT 115,65 TO 115,35 TO 105,60: HPLOT 105,60 TO 75,60 TO 75,90: HPLOT 75,60 TO 95,35 TO 115,35
640 HPLOT 135,40 TO 110,159: HPLOT 145,40 TO 170,159: HPLOT 125,40 TO 80,159: HPLOT 155,40 TO 195,159: HPLOT 105,90 TO 105,60: HPLOT 115,65 TO 115,35 TO 105,60: HPLOT 105,60 TO 75,60 TO 75,90: HPLOT 75,60 TO 95,35 TO 115,35
650 HPLOT 75,90 TO 40,159: HPLOT 80,40 TO 0,150: HPLOT 65,40 TO 0,90: HPLOT 45,40 TO 0,60: HPLOT 236,40 TO 279,60: HPLOT 215,40 TO 279,90: HPLOT 200,40 TO 279,150: HPLOT 240,159 TO 180,40: HPLOT 217,90 TO 217,65: HPLOT 250,47 TO 250,52
660 HPLOT 20,52 TO 20,65: HPLOT 221,47 TO 221,35: HPLOT 215,40 TO 215,28: HPLOT 203,47 TO 203,35: HPLOT 199,40 TO 199,28: HPLOT 199,28 TO 215,28: HPLOT 221,35 TO 215,28: HPLOT 221,35 TO 203,35 TO 199,28
665 FOR A = 1 TO 50:X = RND(1) *35:Y = RND(1) *270: HPLOT Y,X: NEXT A
670 GOSUB 63000
671 IF A$ = "U" THEN PRINT "THE SIDES OF THE MONOLITH ARE TOO STEEP"
675 IF A$ = "D" THEN GOTO 200
680 IF A$ = "N" THEN GOTO 700
699 GOSUB 63300: GOTO 670
700 GOSUB 60000: HOME
705 PRINT "STRANGE!"
710 HPLOT 0,40 TO 279,40: HPLOT 0,50 TO 279,50: HPLOT 0,70 TO 279,70: HPLOT 0,110 TO 279,110
715 HPLOT 135,40 TO 120,159: HPLOT 145,40 TO 160,159: HPLOT 130,40 TO 95,159: HPLOT 150,40 TO 195,159
720 HPLOT 120,40 TO 40,159: HPLOT 160,40 TO 240,159: HPLOT 110,40 TO 0,140: HPLOT 170,40 TO 279,140
725 HPLOT 80,40 TO 0,70: HPLOT 200,40 TO 279,70
730 FOR I = 1 TO 100:X = RND(1) *39:Y = RND(1) *279: HCOLOR= 3: HPLOT Y,X: HCOLOR= 3: NEXT
733 POKE 783,250: POKE 769,1: POKE 771,50
734 FOR P = 1 TO 5:Z = RND(1) *25 +1:Y = RND(1) *25 +1: CALL 768
735 FOR I = 1 TO 278 STEP 5: HCOLOR= 3: HPLOT 0 +I,Z: HPLOT 278 -I,Y: HCOLOR= 0: HPLOT 0 +I,Z: HPLOT 278 -I,Y: NEXT I
740 NEXT P
750 GOSUB 63000
755 IF A$ = "N" THEN GOTO 800
760 IF A$ = "S" THEN GOTO 600
799 GOSUB 63300: GOTO 750
800 GOSUB 60000: HOME
810 PRINT "WIERD!"
820 HPLOT 0,53 TO 279,53: HPLOT 0,60 TO 279,60: HPLOT 0,50 TO 279,50: HPLOT 0,70 TO 279,70: HPLOT 0,110 TO 279,110: HPLOT 135,50 TO 120,159: HPLOT 145,50 TO 160,159: HPLOT 130,50 TO 95,159: HPLOT 150,50 TO 195,159
830 HPLOT 120,50 TO 50,159: HPLOT 160,50 TO 250,159: HPLOT 110,50 TO 0,150: HPLOT 170,50 TO 279,150: HPLOT 80,50 TO 0,70: HPLOT 200,50 TO 279,70
840 HPLOT 20,35 TO 30,35 TO 30,45 TO 20,45 TO 20,35: HPLOT 60,35 TO 70,35 TO 70,45 TO 60,45 TO 60,35: HPLOT 35,25 TO 45,25 TO 45,15 TO 35,15 TO 35,25: HPLOT 75,25 TO 85,25 TO 85,15 TO 75,15 TO 75,25
850 HPLOT 60,35 TO 80,30: HPLOT 70,35 TO 90,30: HPLOT 70,45 TO 97,30: HPLOT 20,35 TO 40,30: HPLOT 30,35 TO 50,30: HPLOT 30,45 TO 57,30: HPLOT 35,25 TO 40,30: HPLOT 45,25 TO 50,30: HPLOT 45,15 TO 57,30: HPLOT 75,25 TO 80,30: HPLOT 85,25 TO 90,30: HPLOT 85,15 TO 97,30
860 FOR I = 1 TO 50:X = ( RND(1) *279):Y = RND(1) *40: HPLOT X,Y: NEXT I
870 GOSUB 63000
885 IF A$ = "N" THEN GOTO 900
890 IF A$ = "S" THEN GOTO 700
899 GOSUB 63300: GOTO 870
900 GOSUB 60000: HOME
905 PRINT "THE MONOLITH OF OXYX"
910 HPLOT 260,70 TO 260,20 TO 200,50 TO 200,100 TO 140,140 TO 140,145 TO 210,105 TO 210,55 TO 255,30 TO 255,75 TO 260,70: HPLOT 255,75 TO 210,75: HPLOT 260,20 TO 170,20 TO 110,50 TO 110,100 TO 200,100
915 HPLOT 110,50 TO 200,50: HPLOT 110,100 TO 50,140 TO 50,145 TO 70,145 TO 70,140 TO 50,140: HPLOT 140,140 TO 120,140 TO 120,145 TO 140,145: HPLOT 85,140 TO 105,140 TO 105,145 TO 85,145 TO 85,140: HPLOT 70,140 TO 100,120 TO 100,125 TO 70,145
920 HPLOT 85,140 TO 115,120 TO 100,120: HPLOT 100,125 TO 109,125: HPLOT 105,140 TO 135,120 TO 135,125 TO 105,145: HPLOT 120,140 TO 150,120 TO 135,120: HPLOT 135,125 TO 144,125
925 HPLOT 0,60 TO 110,60: HPLOT 260,60 TO 279,60
930 FOR I = 1 TO 30:X = RND(1) *278:Y = RND(1) *19: HPLOT X,Y:X = RND(1) *108:Y = RND(1) *58: HPLOT X,Y: NEXT
935 HPLOT 120,80 TO 120,75 TO 123,80 TO 126,75 TO 126,80: HPLOT 130,80 TO 130,75 TO 133,75 TO 135,77 TO 135,78 TO 133,80 TO 130,80
940 HPLOT 143,80 TO 139,80 TO 139,75 TO 143,75: HPLOT 147,75 TO 147,80 TO 150,80: HPLOT 154,80 TO 158,75: HPLOT 154,75 TO 158,80: HPLOT 162,75 TO 165,80 TO 167,75: HPLOT 171,75 TO 171,80
945 HPLOT 147,75 TO 147,80 TO 150,80: HPLOT 154,80 TO 158,75: HPLOT 154,75 TO 158,80
950 GOSUB 63000
955 IF A$ = "S" THEN GOTO 800
960 IF A$ = "MDCLXVI" THEN PRINT "NOTHING HAPPENS": GOTO 950
965 IF A$ = "1666" THEN GOTO 1000
976 IF A$ = "READ" OR A$ = "TRANSLATE" OR A$ = "DECIPHER" THEN PRINT "IT SAYS MDCLXVI": GOTO 950
977 IF A$ = "N" AND OB(12) = 0 THEN GOTO 1100
978 IF A$ = "N" THEN GOTO 1200
980 GOSUB 63300: GOTO 950
1000 GOSUB 60000: HOME
1001 PRINT "HURRAH YOU DID IT!!"
1005 HPLOT 40,159 TO 40,100 TO 150,100 TO 150,159: HPLOT 40,100 TO 120,50 TO 210,50 TO 150,100: HPLOT 210,50 TO 210,159: HPLOT 200,159 TO 200,70 TO 160,107 TO 160,159: HPLOT 0,70 TO 90,70: HPLOT 210,70 TO 279,70
1010 FOR I = 1 TO 50:X = RND(1) *278:Y = RND(1) *50: HPLOT X,Y: NEXT
1015 IF TR(4) = 0 THEN PRINT "AHH THE OXYX'S SCEPTOR IS HERE"
1020 IF TR(4) = 0 THEN HCOLOR= 5: GOSUB 1050: GOSUB 62510: GOSUB 62510: HCOLOR= 0: GOSUB 1050
1030 IF TR(4) = 0 THEN :TR(4) = 1:PTS = PTS +20
1049 GOTO 1090
1050 FOR I = 1 TO 3: HPLOT 100 +I,80 +I TO 140 +I,60 +I: NEXT : RETURN
1090 GOSUB 63000
1091 IF A$ = "1666" THEN GOTO 900
1092 IF A$ = "D" THEN GOTO 900
1099 GOSUB 63300: GOTO 1090
1100 GOSUB 60000
1102 PRINT "OH OH A OPTHAPLEBIAN EYE-SENTRY!"
1115 HPLOT 150,50 TO 100,110 TO 100,130: HPLOT 150,50 TO 190,110 TO 190,130: HPLOT 150,50 TO 140,110 TO 140,130
1120 HPLOT 135,50 TO 165,50 TO 180,35 TO 165,20 TO 135,20 TO 120,35 TO 135,50: HPLOT 120,35 TO 180,35
1125 SCALE= 1: ROT= 0
1126 FOR X = 1 TO 5
1127 FOR I = 1 TO 35: DRAW 38 AT 165 -I,36: XDRAW 38 AT 165 -I,36: NEXT I
1129 POKE 783,5: POKE 769,1: POKE 771,5: CALL 768
1131 FOR I = 35 TO 1 STEP -1: DRAW 38 AT 165 -I,36: XDRAW 38 AT 165 -I,36: NEXT I
1132 POKE 783,5: POKE 769,1: POKE 771,5: CALL 768
1133 NEXT X
1135 DRAW 38 AT 150,36
1145 GOSUB 63000
1146 IF A$ = "S" THEN GOTO 900
1147 IF A$ = "W" THEN GOTO 1160
1148 IF A$ = "E" THEN GOTO 1170
1149 IF A$ = "N" THEN GOTO 1180
1150 IF LEFT$(A$,4) = "CAST" THEN GOTO 1190
1151 IF A$ = "MAGIC" THEN PRINT "THIS GUY IS TOUGH FORGET IT": GOTO 1145
1152 IF A$ = "ATTACK" OR A$ = "KILL" THEN PRINT "YOUR THE GUTSIEST GUY I KNOW BUT YOU BETTER TRY SOMETHING ELSE": GOTO 1145
1155 GOSUB 63300: GOTO 1145
1160 XDRAW 38 AT 150,36
1162 FOR I = 1 TO 18: DRAW 38 AT 150 -I,36: XDRAW 38 AT 150 -I,36: NEXT I
1164 DRAW 38 AT 130,36
1165 FOR I = 1 TO 50 STEP 10: POKE 783,175: POKE 769,1: POKE 771,200: CALL 768: DRAW 25 AT 120 -(I *2),45 +(I *2): XDRAW 25 AT 120 -(I *2),45 +(I *2): NEXT I
1166 XDRAW 38 AT 130,36
1167 FOR I = 18 TO 1 STEP -1: DRAW 38 AT 150 -I,36: XDRAW 38 AT 150 -I,36: NEXT I: DRAW 38 AT 150,36
1168 PRINT "IT WON'T LET YOU GO WEST ";NA$
1169 GOTO 1145
1170 XDRAW 38 AT 150,36
1172 FOR I = 1 TO 18: DRAW 38 AT 150 +I,36: XDRAW 38 AT 150 +I,36: NEXT I: DRAW 38 AT 167,36
1175 FOR I = 1 TO 50 STEP 10: POKE 783,175: POKE 769,1: POKE 771,200: CALL 768: DRAW 25 AT 170 +(I *2),45 +(I *2): XDRAW 25 AT 170 +(I *2),45 +(I *2): NEXT I
1177 FOR I = 18 TO 1 STEP -1: DRAW 38 AT 150 +I,36: XDRAW 38 AT 150 +I,36: NEXT I: DRAW 38 AT 150,36
1178 PRINT "IT WON'T LET YOU GO EAST ";NA$
1179 GOTO 1145
1180 REM
1185 FOR I = 1 TO 50 STEP 10: POKE 783,175: POKE 769,1: POKE 771,200: CALL 768: DRAW 25 AT 150,45 +(I *2): XDRAW 25 AT 150,45 +(I *2): NEXT I
1188 PRINT "IT WON'T LET YOU GO NORTH ";NA$
1189 GOTO 1145
1190 POKE 783,50: POKE 769,3: POKE 771,50: CALL 768: DRAW 19 AT 155,36
1192 POKE 783,50: POKE 769,3: POKE 771,50: CALL 768: ROT= 16: DRAW 19 AT 155,36
1194 POKE 783,50: POKE 769,3: POKE 771,50: CALL 768: ROT= 32: DRAW 19 AT 155,36
1196 POKE 783,50: POKE 769,3: POKE 771,50: CALL 768: ROT= 48: DRAW 19 AT 155,36
1198 FOR I = 1 TO 2500: NEXT I
1199 OB(12) = 1: GOTO 1200
1200 GOSUB 60000
1205 PRINT "MAGIC MUSHROOMS GROW HERE ";NA$
1210 DRAW 16 AT 10,0: DRAW 13: DRAW 13: DRAW 12
1215 ROT= 32: DRAW 13 AT 70,159: DRAW 13: ROT= 0
1220 HPLOT 0,60 TO 279,60
1225 IF IT(6) = 0 THEN GOTO 1233
1226 IF IT(7) = 0 THEN GOTO 1236
1227 IF IT(8) = 0 THEN GOTO 1239
1230 GOTO 1275
1233 DRAW 10 AT 120,100
1236 DRAW 10 AT 150,130
1239 DRAW 10 AT 170,110
1240 PRINT "YOU'VE FOUND A MAGIC MUSHROOM"
1242 ST = ST +5
1245 IF IT(6) = 0 THEN IT(6) = 1: GOSUB 62510: FOR I = 1 TO 1000: NEXT I: XDRAW 10 AT 120,100: GOTO 1271
1250 IF IT(7) = 0 THEN IT(7) = 1: GOSUB 62510: FOR I = 1 TO 1000: NEXT I: XDRAW 10 AT 150,130: GOTO 1271
1255 IF IT(8) = 0 THEN IT(8) = 1: GOSUB 62510: FOR I = 1 TO 1000: NEXT I: XDRAW 10 AT 170,110: GOTO 1271
1271 PRINT "BAG LIMIT =3: POSSESION LIMIT = 1"
1275 GOSUB 63000
1280 IF A$ = "S" THEN GOTO 900
1290 IF A$ = "1666" THEN GOTO 51000
1295 GOSUB 63300: GOTO 1275
2000 GOSUB 60000: HOME
2005 IF TR(3) = 0 THEN PRINT "ALL RIGHT ONE OF THE SNOTGURGLE'S BARS OF GOLD"
2010 HCOLOR= 3: FOR X = 20 TO 240 STEP 50
2015 HPLOT 0 +X,0 TO 5 +X,5 TO 15 +X,5 TO 20 +X,0: HPLOT 0 +X,50 TO 5 +X,45 TO 15 +X,45 TO 20 +X,50
2020 HPLOT 5 +X,5 TO 5 +X,45: HPLOT 15 +X,5 TO 15 +X,45
2025 NEXT : HPLOT 0,50 TO 279,50
2030 HCOLOR= 2: FOR X = 1 TO 10: HPLOT 40 +X,130 -X TO 40 +X,70 +X TO 200 -X,70 +X TO 200 -X,130 -X TO 40 +X,130 -X
2035 NEXT : HCOLOR= 3
2040 IF TR(3) = 0 THEN GOSUB 2065: GOSUB 62510: HCOLOR= 0: GOSUB 2065:PTS = PTS +20:TR(3) = 1
2045 GOSUB 63000
2055 IF A$ = "E" THEN GOTO 52000
2056 IF A$ = "W" THEN GOTO 2100
2060 GOSUB 63300: GOTO 2045
2065 HPLOT 90,100 TO 90,110 TO 110,110 TO 110,100 TO 90,100 TO 130,81 TO 150,81 TO 150,91 TO 110,110
2070 HPLOT 110,100 TO 150,81: RETURN
2075 END
2100 GOSUB 60000: HOME
2105 HCOLOR= 3: HPLOT 100,50 TO 150,50 TO 150,120 TO 100,120 TO 100,50: HPLOT 100,50 TO 35,25
2110 HPLOT 150,50 TO 250,25: HPLOT 100,120 TO 35,135: HPLOT 150,120 TO 250,135
2115 HPLOT 100,60 TO 150,60: HPLOT 100,70 TO 150,70: HPLOT 100,100 TO 150,100: HPLOT 100,110 TO 150,110
2120 HPLOT 110,65: HPLOT 140,65: HPLOT 110,105: HPLOT 140,105
2125 HPLOT 240,0 TO 245,10 TO 279,10: HPLOT 240,159 TO 245,149 TO 279,149: HPLOT 250,10 TO 250,149: HPLOT 0,10 TO 40,10 TO 45,0: HPLOT 0,150 TO 40,150 TO 45,159: HPLOT 35,10 TO 35,150
2130 HPLOT 200,45 TO 200,122: HPLOT 210,43 TO 210,123: HPLOT 193,41 TO 198,46 TO 212,41 TO 215,35: HPLOT 195,126 TO 199,122 TO 212,125 TO 215,128
2135 GOSUB 63000
2140 IF A$ = "E" THEN GOTO 2000
2145 IF A$ = "W" THEN GOTO 2200
2150 GOSUB 63300: GOTO 2135
2200 GOSUB 60000: HOME
2205 HCOLOR= 1
2210 FOR I = 1 TO 10: HPLOT 1,75 +I TO 10,75 +I: HPLOT 279,75 +I TO 269,75 +I: NEXT
2215 HPLOT 60,1 TO 10,75: HPLOT 50,1 TO 8,75: HPLOT 40,1 TO 6,75: HPLOT 40,1 TO 4,75: HPLOT 20,1 TO 2,75: HPLOT 60,158 TO 10,85: HPLOT 50,159 TO 8,85: HPLOT 40,159 TO 6,85
2220 HPLOT 40,159 TO 4,85: HPLOT 20,159 TO 2,85
2225 HPLOT 220,1 TO 270,75: HPLOT 230,0 TO 272,75: HPLOT 240,0 TO 274,75: HPLOT 250,0 TO 276,75: HPLOT 260,0 TO 278,75: HPLOT 220,159 TO 270,85: HPLOT 230,159 TO 272,85: HPLOT 240,159 TO 274,85: HPLOT 250,159 TO 276,85: HPLOT 260,159 TO 278,85
2230 HCOLOR= 3: HPLOT 100,50 TO 150,50 TO 150,120 TO 100,120 TO 100,50: HPLOT 100,50 TO 45,25
2235 HPLOT 150,50 TO 232,25: HPLOT 100,120 TO 45,135: HPLOT 150,120 TO 232,135
2240 HPLOT 100,60 TO 150,60: HPLOT 100,70 TO 150,70: HPLOT 100,100 TO 150,100: HPLOT 100,110 TO 150,110
2245 HPLOT 110,65: HPLOT 140,65: HPLOT 110,105: HPLOT 140,105
2250 GOSUB 63000
2252 IF A$ = "E" THEN GOTO 2100
2254 IF A$ = "W" THEN GOTO 2500
2265 GOSUB 63300: GOTO 2250
2500 GOSUB 60000: HOME
2504 HPLOT 0,159 TO 50,100 TO 50,0: HPLOT 50,100 TO 100,100: HPLOT 150,100 TO 279,100: HPLOT 80,0 TO 90,20 TO 160,20 TO 170,0: HPLOT 80,159 TO 90,140 TO 160,140 TO 170,159
2508 HPLOT 200,30 TO 200,60 TO 240,60 TO 240,30 TO 200,30: HPLOT 210,30 TO 210,50 TO 240,50: HPLOT 200,60 TO 210,50
2512 FOR X = 1 TO 3: HPLOT 220 +X,30 TO 220 +X,55: HPLOT 230 +X,30 TO 230 +X,55: NEXT
2516 IF PILL = 3 THEN GOTO 2568
2520 HPLOT 100,20 TO 100,140: HPLOT 150,20 TO 150,140
2524 PRINT "THERE IS A TALKING PILLAR HERE"
2528 GOSUB 63000
2529 IF A$ = "LISTEN" OR A$ = "SPEAK" AND PILL < >3 THEN PRINT "IT SAYS 'MOVE ME'":MX = 1: GOTO 2528
2532 IF A$ = "E" THEN GOTO 2200
2535 IF MX = 0 THEN GOTO 2544
2536 IF LEFT$(A$,4) = "MOVE" OR LEFT$(A$,4) = "PUSH" THEN GOTO 2548
2540 IF A$ = "D" AND PILL = 3 THEN GOTO 2600
2544 GOSUB 63300: GOTO 2528
2548 IF PILL = 0 THEN PILL = 1: HPLOT 100,40 TO 130,45 TO 140,35 TO 150,50: GOTO 2528
2552 IF PILL = 1 THEN PILL = 2: HPLOT 100,80 TO 120,90 TO 130,95 TO 150,80: GOTO 2528
2556 IF PILL < >2 THEN GOTO 2528
2560 PILL = 3: HCOLOR= 0: HPLOT 100,20 TO 100,140: HPLOT 150,20 TO 150,140
2564 HPLOT 100,40 TO 130,45 TO 140,35 TO 150,50: HPLOT 100,80 TO 120,90 TO 130,95 TO 150,80
2568 HCOLOR= 3
2572 HPLOT 100,100 TO 150,100 TO 135,130 TO 85,130 TO 100,100
2576 HPLOT 100,100 TO 100,130
2580 PRINT "THERE'S A PASSAGE LEADING DOWN"
2584 GOTO 2528
2600 GOSUB 60000: HOME
2605 PRINT "CONGRATULATIONS!!!"
2615 HPLOT 0,159 TO 50,50 TO 50,0: HPLOT 50,50 TO 279,50
2620 IF TR(2) = 0 THEN GOSUB 2640: PRINT "YOU HAVE FOUND A DIAMOND THE SIZE OF A MUTANT WALNUT"
2621 IF TR(2) = 0 THEN GOSUB 62510: HCOLOR= 0: GOSUB 2640:PTS = PTS +20:TR(2) = 1
2625 GOSUB 63000
2630 IF A$ = "U" THEN GOTO 2500
2635 GOSUB 63300: GOTO 2625
2640 HPLOT 80,100 TO 100,80 TO 120,80 TO 140,100 TO 120,120 TO 100,120 TO 80,100: HPLOT 100,80 TO 120,120: HPLOT 120,80 TO 100,120: HPLOT 80,100 TO 140,100: HPLOT 90,80 TO 80,70: HPLOT 110,70 TO 110,60: HPLOT 130,80 TO 140,70
2645 RETURN
5000 REM
5006 TEXT : HOME : POKE -16300,0: POKE -16303,0
5010 PRINT TAB( 10)"SPECIAL JUNCTION #1": PRINT
5020 PRINT "DIRECTION LOCATION": PRINT
5025 PRINT "E(EAST) = SNOTGURGLES PALACE"
5030 PRINT "N(NORTH) = OLDORF'S CASTLE"
5040 PRINT "D(DOWN) = LAND OF LYNXOR"
5050 GOSUB 63000
5055 IF A$ = "E" THEN GOTO 50000
5060 IF A$ = "N" THEN GOTO 5080
5065 IF A$ = "D" THEN GOTO 5090
5070 GOSUB 63300: GOTO 5050
5080 PRINT CHR$(4);"BLOAD CHAIN,A520"
5085 CALL 520"WIZARD2"
5090 PRINT CHR$(4);"BLOAD CHAIN,A520"
5095 CALL 520"WIZARD4"
50000 POKE 34,20: HOME
50010 GOSUB 60000: HOME
50020 PRINT "THIS IS THE SNOTGURGLE'S SMALL PALACE"
50030 HPLOT 0,130 TO 279,130: HPLOT 50,130 TO 50,30 TO 60,10 TO 70,30 TO 70,130: HPLOT 57,30 TO 62,30 TO 62,50 TO 57,50 TO 57,30: HPLOT 200,130 TO 200,30 TO 210,10 TO 220,30 TO 220,130: HPLOT 207,30 TO 212,30 TO 212,50 TO 207,50 TO 207,30
50040 HPLOT 90,40 TO 180,40: HPLOT 70,50 TO 90,50: HPLOT 180,50 TO 200,50: HPLOT 90,130 TO 90,40 TO 110,10 TO 160,10 TO 180,40 TO 180,130: HPLOT 120,20 TO 125,30 TO 115,30 TO 120,20: HPLOT 135,20 TO 140,30 TO 130,30 TO 135,20
50050 HPLOT 150,20 TO 155,30 TO 145,30 TO 150,20: HPLOT 120,130 TO 120,70 TO 115,70 TO 115,130: HPLOT 160,130 TO 160,70 TO 155,70 TO 155,130: HPLOT 120,80 TO 155,80: HPLOT 120,85 TO 155,85
50060 IF OB(11) = 0 THEN HPLOT 130,130 TO 130,85: HPLOT 140,130 TO 140,85: HPLOT 150,130 TO 150,85
50070 GOSUB 63000
50080 IF A$ = "ENTER" OR A$ = "OPEN" OR A$ = "UNLOCK" THEN PRINT "YOU ARE TOO FAR AWAY": GOTO 50070
50090 IF A$ = "N" THEN GOTO 51000
50100 IF A$ = "U" THEN PRINT "YOU MAY NOT RETURN FROM HERE": GOTO 50070
50110 IF A$ = "W" THEN GOTO 5000
50140 GOSUB 63300: GOTO 50070
51000 GOSUB 60000: HOME
51010 HPLOT 190,0 TO 190,55: HPLOT 0,130 TO 30,120 TO 40,120 TO 200,50 TO 210,50 TO 279,0: HPLOT 30,120 TO 30,159: HPLOT 40,120 TO 40,159
51020 HPLOT 70,108 TO 70,50 TO 110,35 TO 110,90: HPLOT 65,109 TO 65,30 TO 70,28 TO 70,45 TO 110,31 TO 110,20 TO 114,19 TO 114,88: HPLOT 200,50 TO 200,80: HPLOT 210,50 TO 210,75
51030 HPLOT 50,159 TO 90,140 TO 80,140 TO 180,90 TO 170,90 TO 279,50
51040 HPLOT 80,140 TO 80,145: HPLOT 170,90 TO 170,95
51050 IF OB(11) = 1 THEN GOTO 51090
51060 PRINT "IT LOOKS LIKE THE DRAW BRIDGE IS CLOSED"
51070 HPLOT 80,47 TO 80,102: HPLOT 90,44 TO 90,98: HPLOT 100,41 TO 100,93
51080 GOTO 51120
51090 HCOLOR= 0: HPLOT 105,128 TO 142,109: HCOLOR= 3
51100 HPLOT 70,108 TO 130,140 TO 165,120 TO 110,90: HPLOT 104,93 TO 159,125: HPLOT 93,96 TO 150,130: HPLOT 80,103 TO 140,135: HCOLOR= 0: HPLOT 80,47 TO 80,102: HPLOT 90,44 TO 90,98: HPLOT 100,41 TO 100,93: HCOLOR= 3
51110 OB(11) = 1
51120 GOSUB 63000
51140 IF A$ = "N" AND OB(11) = 1 THEN GOTO 52000
51150 IF A$ = "N" AND OB(11) = 0 THEN PRINT "GET THE DRAW BRIDGE OPEN FIRST": GOTO 51120
51160 IF A$ = "S" THEN GOTO 50000
51165 IF A$ = "W" THEN GOTO 5000
51170 IF A$ = "OPEN" AND OB(11) = 0 OR A$ = "UNLOCK" AND OB(11) = 0 THEN PRINT "YOU DIDN'T THINK IT WAS GOING TO BE ": PRINT "THAT EASY NOW DID YOU": GOTO 51120
51180 IF A$ = "OPEN SESAME" THEN PRINT "THAT WON'T WORK HERE": GOTO 51120
51190 IF A$ = "MAGIC" AND OB(11) = 0 THEN GOTO 51090
51200 IF A$ = "MAGIC" AND OB(11) = 1 THEN PRINT "THE BRIDGE IS DOWN AND ITS GOING TO": PRINT "STAY THAT WAY": GOTO 51120
51210 IF LEFT$(A$,4) = "ABRA" OR LEFT$(A$,5) = "HOCUS" THEN PRINT "NOTHING HAPPENS": GOTO 51120
51220 IF A$ = "JUMP" THEN PRINT "AW COME ON NOW": GOTO 51120
51230 IF LEFT$(A$,4) < >"CAST" THEN GOTO 51240
51232 IF LEFT$(A$,4) = "CAST" AND OB(11) = 1 THEN PRINT "IT'S OPEN ";NA$: GOTO 51240
51234 POKE 783,200: POKE 769,1: POKE 771,50: FOR I = 1 TO 5: CALL 768: FOR X = 1 TO 500: NEXT X: NEXT I
51236 ST = ST -2: GOSUB 63650: GOTO 51090
51240 GOSUB 63300: GOTO 51120
52000 GOSUB 60000: HOME
52010 HPLOT 0,130 TO 30,100 TO 250,100 TO 279,130: HPLOT 30,100 TO 30,0: HPLOT 250,100 TO 250,0
52020 HPLOT 80,90 TO 80,10 TO 200,10 TO 200,90 TO 80,90: HPLOT 85,85 TO 85,15 TO 195,15 TO 195,85 TO 85,85
52030 HPLOT 110,159 TO 130,110 TO 150,110 TO 170,159: HPLOT 118,159 TO 135,115 TO 145,115 TO 162,159
52040 HPLOT 85,35 TO 195,35: HPLOT 130,35 TO 130,15: HPLOT 150,35 TO 150,15: HPLOT 130,30 TO 150,30: HPLOT 130,25 TO 150,25: HPLOT 135,27: HPLOT 142,27: HPLOT 147,27
52050 HPLOT 127,35 TO 132,77 TO 148,77 TO 153,35
52060 HPLOT 132,35 TO 136,73 TO 144,73 TO 149,35
52070 PRINT "YOUR IN A LARGE ROOM WITH A MIRROR ON THE WALL AND A PASSAGE DOWN"
52080 IF TR(1) = 0 THEN PRINT "THERE IS A VALUABLE CROSS HERE"
52090 IF TR(1) = 0 THEN GOSUB 52590
52110 IF L1 = 0 THEN GOSUB 52370
52120 IF L2 = 0 THEN GOSUB 52410
52130 IF L3 = 0 THEN GOSUB 52430
52140 IF L4 = 0 THEN GOSUB 52450
52150 IF L5 = 0 THEN GOSUB 52490
52160 IF L5 = 0 AND L3 = 0 AND TR(1) = 0 THEN GOTO 52990
52161 GOSUB 63000
52180 IF A$ = "MOVE CHAIR" AND L1 = 0 AND L4 = 0 THEN HCOLOR= 0: GOSUB 52370: HCOLOR= 3: GOSUB 52410: GOTO 52160
52190 IF A$ = "MOVE RUG" THEN PRINT "THE RUG IS NAILED DOWN...LEAVE IT ALONE": GOTO 52160
52200 IF A$ = "MOVE CHAIR" AND L1 = 0 AND L5 = 0 THEN HCOLOR= 0: GOSUB 52370: HCOLOR= 3: GOSUB 52430: GOTO 52160
52220 IF A$ = "MOVE CHAIR" AND L2 = 0 AND L4 = 0 THEN HCOLOR= 0: GOSUB 52410: HCOLOR= 3: GOSUB 52370: GOTO 52160
52230 IF A$ = "MOVE CHAIR" AND L2 = 0 AND L5 = 0 THEN HCOLOR= 0: GOSUB 52410: HCOLOR= 3: GOSUB 52430: GOTO 52160
52240 IF A$ = "MOVE CHAIR" AND L3 = 0 THEN HCOLOR= 0: GOSUB 52430: HCOLOR= 3: GOSUB 52370: GOSUB 52500: GOTO 52160
52250 IF A$ = "MOVE TABLE" AND L4 = 0 THEN HCOLOR= 0: GOSUB 52450: HCOLOR= 3: GOSUB 52490: GOTO 52160
52260 IF A$ = "MOVE TABLE" AND L5 = 0 THEN HCOLOR= 0: GOSUB 52500: HCOLOR= 3: GOSUB 52450: HPLOT 240,100 TO 203,100: IF L3 = 0 THEN HCOLOR= 0: GOSUB 52430: HCOLOR= 3: GOSUB 52370: GOTO 52160
52280 IF A$ = "MOVE" THEN PRINT "MOVE THE CHAIR OR MOVE THE TABLE PLEASE": GOTO 52160
52300 IF A$ = "JUMP" OR A$ = "REACH" THEN PRINT "NAW THAT AIN'T THE WAY TO GET IT": GOTO 52160
52310 IF A$ = "BREAK" THEN PRINT "THAT IS NOT WITHIN YOUR POWERS": GOTO 52160
52320 IF A$ = "SIT" THEN PRINT "COME ON, COME ON YOU ARE NOT TIRED": GOTO 52160
52360 GOTO 52530
52370 HPLOT 95,135 TO 95,115 TO 100,110 TO 100,120 TO 110,120 TO 105,125 TO 95,125 TO 100,120
52380 HPLOT 105,125 TO 105,135: HPLOT 110,120 TO 110,130
52390 HPLOT 95,70 TO 95,55 TO 100,60 TO 100,75: HPLOT 95,63 TO 100,68 TO 110,68 TO 105,63 TO 100,63
52400 HPLOT 110,68 TO 110,75:L1 = 0:L2 = 1:L3 = 1: RETURN
52410 HPLOT 55,135 TO 55,115 TO 60,110 TO 60,120 TO 70,120 TO 65,125 TO 55,125 TO 60,120
52420 HPLOT 65,125 TO 65,135: HPLOT 70,120 TO 70,130:L1 = 1:L2 = 0:L3 = 1: RETURN
52430 HPLOT 225,95 TO 225,75 TO 230,70 TO 230,80 TO 240,80 TO 235,85 TO 225,85 TO 230,80
52440 HPLOT 235,85 TO 235,95: HPLOT 240,80 TO 240,90:L1 = 1:L2 = 1:L3 = 0: RETURN
52450 HPLOT 170,130 TO 180,110 TO 215,110 TO 205,130 TO 170,130
52460 HPLOT 205,130 TO 205,145: HPLOT 215,110 TO 215,125: HPLOT 170,130 TO 170,145
52470 HPLOT 194,70 TO 175,70 TO 165,55 TO 194,55: HPLOT 175,70 TO 175,80: HPLOT 165,55 TO 165,65
52480 L4 = 0:L5 = 1: RETURN
52490 HCOLOR= 0: HPLOT 240,100 TO 203,100: HCOLOR= 3
52500 HPLOT 202,105 TO 212,85 TO 247,85 TO 237,105 TO 202,105
52510 HPLOT 237,105 TO 237,120: HPLOT 247,85 TO 247,100: HPLOT 202,105 TO 202,120
52520 L4 = 1:L5 = 0: RETURN
52530 REM
52550 IF A$ = "S" AND OB(11) = 1 THEN GOTO 51000
52570 IF A$ = "D" THEN GOTO 100
52575 IF A$ = "W" THEN GOTO 2000
52580 GOSUB 63300: GOTO 52160
52590 HPLOT 210,10 TO 215,10 TO 215,5 TO 220,5 TO 220,10 TO 225,10 TO 225,15 TO 220,15 TO 220,25 TO 215,25 TO 215,15 TO 210,15 TO 210,10: RETURN
52600 HPLOT 210,140 TO 215,140 TO 215,135 TO 220,135 TO 220,140 TO 225,140 TO 225,145 TO 220,145 TO 220,155 TO 215,155 TO 215,145 TO 210,145 TO 210,140: RETURN
52610 GOTO 52160
52990 PRINT "NICE GOING ";NA$;" THE CROSS IS YOURS"
52995 TR(1) = 1:PTS = PTS +20: HCOLOR= 0: GOSUB 62510: GOSUB 52590: GOTO 52161
60000 REM BORDER
60004 POKE 34,20: HOME : SCALE= 1: ROT= 0:I = 0:X = 0
60010 HGR : HCOLOR= 3:: HPLOT 0,0 TO 0,159: HPLOT 0,0 TO 0,159: HPLOT 0,0 TO 279,0: HPLOT 0,159 TO 279,159: HPLOT 279,0 TO 279,159: RETURN
62000 PRINT CHR$(4);"OPEN WIZ.SAVE"
62005 PRINT CHR$(4);"WRITE WIZ.SAVE"
62010 PRINT MOVE: PRINT PTS: PRINT ST: PRINT CH: PRINT CH$: PRINT GT
62015 FOR I = 1 TO 15: PRINT OB(I): NEXT I
62016 FOR I = 1 TO 10: PRINT GL(I): NEXT I
62020 FOR I = 1 TO 6: PRINT C1$(I): NEXT I
62025 FOR I = 1 TO 4: PRINT C2$(I): NEXT I
62030 FOR I = 1 TO 4: PRINT C3$(I): NEXT I
62035 FOR I = 1 TO 5: PRINT C4$(I): NEXT I
62036 FOR I = 1 TO 15: PRINT IT(I): PRINT TR(I): NEXT I
62040 PRINT C1: PRINT C2: PRINT C3: PRINT C4: PRINT C5: PRINT C6: PRINT C7
62042 PRINT GAME: PRINT PILL: PRINT L1: PRINT L2: PRINT L3: PRINT L4: PRINT L5: PRINT MX
62043 PRINT R1: PRINT R2: PRINT R3: PRINT R4: PRINT R5: PRINT R6
62045 PRINT CHR$(4);"CLOSE WIZ.SAVE"
62050 END
62055 PRINT "DO YOU WANT TO SAVE THIS GAME?? Y/N"
62060 INPUT A$
62065 IF A$ < >"Y" AND A$ < >"N" THEN GOTO 62055
62070 IF A$ = "Y" THEN GOTO 62000
62073 PRINT "YOUR SCORE WAS ";PTS;" THIS RATES YOU AS A ";
62075 IF PTS >260 THEN PRINT "GRAND POOBAH WIZARD": GOTO 62199
62076 IF PTS >200 THEN PRINT "GENIUS WIZARD": GOTO 62199
62077 IF PTS >150 THEN PRINT "EXPIERENCED WIZARD": GOTO 62199
62078 IF PTS >70 THEN PRINT "LEARNING WIZARD": GOTO 62199
62079 PRINT "NOVICE WIZARD"
62199 END
62500 FOR I = 1 TO 4: FOR X = 1 TO 5: POKE 0,I +X *15: POKE 1,20: CALL 800: NEXT X: NEXT I: RETURN
62510 FOR I = 1 TO 4: FOR X = 1 TO 5: POKE 0,200 +(X *5): POKE 1,50: CALL 800: NEXT X: NEXT I: RETURN
62530 END
62550 END
63000 INPUT A$
63005 IF A$ = "C" THEN GOSUB 63400: POKE 34,20: HOME : POKE -16304,0: GOTO 63000
63010 IF A$ = "QUIT" OR A$ = "SAVE" OR A$ = "STOP" OR A$ = "END" THEN GOTO 62055
63011 IF LEFT$(A$,3) = "EAT" AND IT(6) = 1 THEN RT = 99: GOSUB 63400:IT(6) = 2: GOTO 63020
63012 IF LEFT$(A$,3) = "EAT" AND IT(7) = 1 THEN RT = 99: GOSUB 63400:IT(7) = 2: GOTO 63020
63013 IF LEFT$(A$,3) = "EAT" AND IT(8) = 1 THEN RT = 99: GOSUB 63400:IT(8) = 2: GOTO 63020
63015 IF A$ < >"" THEN GOTO 63135
63020 TEXT : HOME : POKE -16300,0: POKE -16303,0
63025 PRINT TAB( 15)"POINTS =";PTS
63030 PRINT TAB( 15)"MOVES =";MOVE
63035 PRINT TAB( 15)"STRENGTH=";ST
63040 PRINT TAB( 15)"CHAR =";CH$
63045 PRINT "YOU ARE CARRYING:": PRINT
63050 IF GT >0 THEN PRINT GT;" GOLD COINS"
63060 IF IT(5) = 1 THEN PRINT "VALUABLE BOOK"
63065 IF IT(1) = 1 THEN PRINT "POWERFUL SWORD"
63070 IF IT(2) = 1 THEN PRINT "SKELETON KEY"
63075 IF IT(3) = 1 THEN PRINT "OLDORF'S RING"
63077 IF IT(6) = 1 THEN PRINT "1ST MAGIC MUSHROOM"
63078 IF IT(7) = 1 THEN PRINT "2ND MAGIC MUSHROOM"
63079 IF IT(8) = 1 THEN PRINT "3RD MAGIC MUSHROOM"
63080 VTAB (7): HTAB (20)
63085 HTAB (20): IF TR(1) = 1 THEN PRINT "VALUABLE CROSS"
63090 HTAB (20): IF TR(2) = 1 THEN PRINT "LARGE DIAMOND"
63095 HTAB (20): IF TR(3) = 1 THEN PRINT "GOLD BAR"
63100 HTAB (20): IF TR(4) = 1 THEN PRINT "OXYX'S SCEPTOR"
63101 HTAB (20): IF TR(5) = 1 THEN PRINT "TINY KEY"
63102 HTAB (20): IF TR(8) = 1 THEN PRINT "ICKYUP'S RUBY FORTUNE"
63103 HTAB (20): IF TR(7) = 1 THEN PRINT "ZIT'S NECKLACE"
63104 HTAB (20): IF TR(11) = 1 THEN PRINT "LYNXOR'S TREASURE"
63105 HTAB (1): POKE 34,21: VTAB (22)
63110 INPUT A$
63115 IF A$ = "QUIT" OR A$ = "SAVE" OR A$ = "STOP" OR A$ = "END" THEN GOTO 62055
63120 POKE 34,20: HOME
63125 POKE -16304,0
63130 GOTO 63000
63135 MOVE = MOVE +1
63140 IF LEFT$(A$,4) = "CAST" AND CH < >7 THEN PRINT "THAT IS NOT WITHIN THE ";CH$;"'S POWER": GOTO 63000
63145 IF LEFT$(A$,5) = "MAGIC" AND CH < >5 THEN PRINT "THAT IS NOT WITHIN THE ";CH$;"'S POWER": GOTO 63000
63150 FOR I = 1 TO 6: IF LEFT$(A$,4) = C1$(I) AND CH < >1 THEN GOTO 63195
63155 NEXT I
63160 FOR I = 1 TO 4: IF LEFT$(A$,4) = C2$(I) AND CH < >2 THEN GOTO 63195
63165 NEXT I
63170 FOR I = 1 TO 4: IF LEFT$(A$,4) = C3$(I) AND CH < >3 THEN GOTO 63195
63175 NEXT I
63180 FOR I = 1 TO 5: IF LEFT$(A$,4) = C4$(I) AND CH < >4 THEN GOTO 63195
63185 NEXT I
63190 RETURN
63195 PRINT "THAT IS NOT WITHIN THE ";CH$;"'S POWER": GOTO 63000
63300 IF LEN(A$) = 1 THEN PRINT "CHOOSE ANOTHER DIRECTION": RETURN
63320 IF LEFT$(A$,3) = "GET" THEN PRINT "DON,T BE RIDICULOUS": RETURN
63330 PRINT "I CAN'T DO THAT HERE ";NA$: RETURN
63400 TEXT : HOME : POKE -16300,0: POKE -16303,0: PRINT TAB( 15)"POINTS ="PTS
63410 PRINT TAB( 15)"MOVES =";MOVE
63420 PRINT TAB( 15)"STRENGTH=";ST
63430 PRINT TAB( 15)"CHAR =";CH$
63440 PRINT
63450 PRINT TAB( 15)"1.CLERIC ";C1
63460 PRINT TAB( 15)"2.THIEF ";C2
63470 PRINT TAB( 15)"3.GLADIATOR ";C3
63480 PRINT TAB( 15)"4.STRONGMAN ";C4
63490 PRINT TAB( 15)"5.MAGICIAN ";C5
63500 PRINT TAB( 15)"6.ELF ";C6
63510 PRINT TAB( 15)"7.WIZARD ";C7
63520 PRINT
63530 IF CH$ = "????" THEN PRINT "YOU MUST CHOOSE A CHARACTER TO START AS"
63540 PRINT "WHAT CHARACTER DO YOU WISH TO CHANGE TO?": PRINT " ENTER 1 THRU 7 ONLY C/R=RETURN"
63550 INPUT A$:CK = VAL(A$): IF A$ = "" AND CH$ < >"????" THEN RETURN
63560 IF CK <1 OR CK >7 THEN PRINT "I DON,T SEE A ";A$;" CHOICE": CALL 65338: CALL 65338: CALL 65338: FOR X = 1 TO 1000: NEXT : GOTO 63400
63565 CH = CK
63566 IF RT = 99 THEN GOTO 63950: REM MUSHROOM
63570 IF CH = 1 AND C1 < >0 THEN C1 = C1 -1:CH$ = "CLERIC": GOTO 63650
63580 IF CH = 2 AND C2 < >0 THEN C2 = C2 -1:CH$ = "THIEF": GOTO 63650
63590 IF CH = 3 AND C3 < >0 THEN C3 = C3 -1:CH$ = "GLADIATOR": GOTO 63650
63600 IF CH = 4 AND C4 < >0 THEN C4 = C4 -1:CH$ = "STRONGMAN": GOTO 63650
63610 IF CH = 5 AND C5 < >0 THEN C5 = C5 -1:CH$ = "MAGICIAN": GOTO 63650
63620 IF CH = 6 AND C6 < >0 THEN C6 = C6 -1:CH$ = "ELF": GOTO 63650
63630 IF CH = 7 AND C7 < >0 THEN C7 = C7 -1:CH$ = "WIZARD": GOTO 63650
63640 PRINT "YOU HAVE USED UP THAT GUY!!": CALL 65338: CALL 65338: CALL 65338: FOR I = 1 TO 1000: NEXT : GOTO 63400
63650 ST = ST -2: IF ST <1 THEN GOTO 63700
63660 RETURN
63700 REM
63710 PRINT "YOU ARE TOO WEAK TO CONTINUE"
63720 PRINT "THIS WILL BE YOUR FINAL RESTING PLACE"
63730 PRINT "GAME OVER!! STRENGTH = 000": END
63800 HPLOT 1 +G,0 +H TO 5 +G,0 +H TO 5 +G,15 +H TO 1 +G,15 +H TO 1 +G,0 +H: HPLOT 1 +G,3 +H TO 5 +G,3 +H: HPLOT 1 +G,6 +H TO 5 +G,6 +H: HPLOT 1 +G,10 +H TO 5 +G,10 +H: RETURN
63900 REM TONES
63910 FOR I = 1 TO 22: READ A: POKE 767 +I,A: NEXT
63920 FOR I = 1 TO 19: READ A: POKE 799 +I,A: NEXT
63925 RETURN
63930 DATA 160,14,162,00,138,24,233,01,208,252,141,48,192,232,224,140,208,242,136,208,237,96
63940 DATA 173,48,192,136,208,4,198,1,240,8,202,208,246,166,0,76,32,03,96
63950 IF CH = 1 THEN CH$ = "CLERIC"
63952 IF CH = 2 THEN CH$ = "THIEF"
63954 IF CH = 3 THEN CH$ = "GLADIATOR"
63956 IF CH = 4 THEN CH$ = "STRONGMAN"
63958 IF CH = 5 THEN CH$ = "MAGICIAN"
63960 IF CH = 6 THEN CH$ = "ELF"
63962 IF CH = 7 THEN CH$ = "WIZARD"
63964 RT = 00: GOTO 63650
Text found in Wizard_I_1980_Highlands_Computer_Services.do/WIZARD4.bas:
10 POKE 34,20: HOME : GOSUB 63900:GAME = 4
100 REM
110 TEXT : HOME : POKE -16300,0: POKE -16303,0
120 PRINT TAB( 10)"SPECIAL JUNCTION #2": PRINT
130 PRINT "DIRECTION PLACE"
131 PRINT
135 PRINT "S(SOUTH) = OLDORF'S CASTLE"
140 PRINT "N(NORTH) = LAND OF LYNXOR"
145 PRINT "E(EAST) = SNOTGURGLE'S PALACE"
150 INPUT A$
155 IF A$ = "S" THEN GOTO 170
160 IF A$ = "E" THEN GOTO 175
165 IF A$ = "N" THEN GOTO 200
169 GOSUB 63300: GOTO 120
170 PRINT CHR$(4);"BLOAD CHAIN,A520"
171 CALL 520"WIZARD2"
175 PRINT CHR$(4);"BLOAD CHAIN,A520"
177 CALL 520"WIZARD3"
200 GOSUB 60000
210 HPLOT 0,159 TO 100,70 TO 180,70 TO 279,159: DRAW 13 AT 10,1: DRAW 12: DRAW 16: DRAW 12: HPLOT 100,70 TO 100,10: HPLOT 180,70 TO 180,15: HPLOT 100,70 TO 180,40
220 PRINT "THE WAY TO LYNXOR'S CAVERNS"
225 IF OB(13) = 0 THEN PRINT "ONE OF LYNXOR'S BUZZARDS STANDS WATCH": DRAW 11 AT 200,70
230 GOSUB 63000
232 IF A$ = "W" THEN GOTO 400
235 IF A$ = "S" THEN GOTO 100
237 IF A = "E" THEN GOTO 500
240 IF A$ = "N" AND OB(13) = 0 THEN GOTO 291
244 IF A$ = "N" THEN GOTO 300
246 IF LEFT$(A$,4) = "KILL" AND OB(13) = 1 OR LEFT$(A$,6) = "ATTACK" AND OB(13) = 1 THEN PRINT "ITS ALREADY DEAD TURKEY BREATH": GOTO 230
250 IF LEFT$(A$,4) = "KILL" OR LEFT$(A$,6) = "ATTACK" THEN POKE 783,250: POKE 769,1: POKE 771,250: CALL 768: HCOLOR= 0: DRAW 11 AT 200,70:OB(13) = 1: PRINT "SO BE IT": GOTO 230
255 IF LEFT$(A$,4) = "CAST" AND OB(13) = 0 THEN POKE 783,250: POKE 769,5: POKE 771,250: CALL 768: HCOLOR= 0: DRAW 11 AT 200,70:OB(13) = 1: PRINT "SO BE IT WIZARD":ST = ST -8: GOSUB 63650: GOTO 230
290 GOSUB 63300: GOTO 230
291 FOR I = 1 TO 40 STEP 5: POKE 783,1: POKE 769,1: POKE 771,20: CALL 768: HCOLOR= 5: HPLOT 205 -I,71 +(I *2): HCOLOR= 0: HPLOT 205 -I,71 +(I *2)
292 HCOLOR= 5: HPLOT 205 -(I *2),71 +(I *2): HCOLOR= 0: HPLOT 205 -(I *2),71 +(I *2)
295 HCOLOR= 5: HPLOT 205 -(I *3),71 +(I *2): HCOLOR= 0: HPLOT 205 -(I *3),71 +(I *2)
296 NEXT : PRINT "YOUR STUCK ";NA$;", IT WON'T LET YOU GO BY"
299 GOTO 230
300 GOSUB 60000
305 PRINT "THE CAVERNS HEAD MANY DIFFERENT WAYS"
310 HPLOT 0,130 TO 279,130: HPLOT 30,130 TO 30,70 TO 88,70 TO 88,130: DRAW 12 AT 30,72
315 DRAW 16 AT 111,72: HPLOT 110,130 TO 110,70 TO 163,70 TO 163,130
320 DRAW 12 AT 181,72: HPLOT 180,130 TO 180,70 TO 238,70 TO 238,130
325 HPLOT 180,130 TO 238,110: HPLOT 163,130 TO 110,110: HPLOT 30,130 TO 88,110
330 DRAW 17 AT 52,60: DRAW 18 AT 215,55: DRAW 3 AT 140,60
345 GOSUB 63000
350 IF A$ = "U" THEN GOTO 600
355 IF A$ = "D" THEN GOTO 700
360 IF A$ = "S" THEN GOTO 200
365 IF A$ = "E" THEN GOTO 800
370 IF A$ = "W" THEN GOTO 1100
375 IF A$ = "N" THEN GOTO 2400
390 GOSUB 63300: GOTO 345
400 GOSUB 10000
405 GOSUB 63000
410 IF A$ = "E" THEN GOTO 200
420 GOSUB 63300: GOTO 405
500 GOSUB 10000
505 GOSUB 63000
510 IF A$ = "W" THEN GOTO 200
520 GOSUB 63300: GOTO 505
600 GOSUB 10000
605 GOSUB 63000
610 IF A$ = "D" THEN GOTO 300
620 GOSUB 63300: GOTO 605
700 GOSUB 10000
705 GOSUB 63000
710 IF A$ = "U" THEN GOTO 300
720 GOSUB 63300: GOTO 705
800 GOSUB 60000
810 ROT= 58
820 DRAW 12 AT 1,65: ROT= 0: DRAW 12: DRAW 12: DRAW 12: ROT= 6: DRAW 12: HPLOT 80,159 TO 135,60 TO 145,60 TO 200,159: HPLOT 135,60 TO 135,40 TO 145,40 TO 145,60
825 ROT= 0: DRAW 17 AT 30,120: DRAW 18 AT 230,85
830 PRINT "THIS IS A NARROW CORRIDOR"
840 GOSUB 63000
850 IF A$ = "E" THEN GOTO 900
860 IF A$ = "W" THEN GOTO 300
890 GOSUB 63300: GOTO 840
899 END
900 GOSUB 60000
901 DP = 0
905 PRINT " THIS MERLINIAN ROOM ";
910 GOSUB 10005
950 GOSUB 63000
955 IF A$ = "W" THEN GOTO 800
960 IF A$ = "D" AND DP = 1 THEN GOTO 1000
965 IF A$ = "MAGIC" THEN SCALE= 5: HCOLOR= 5: DRAW 15 AT 147,100: HCOLOR= 5: HPLOT 146,101 TO 130,124:DP = 1: PRINT "FOR A MOMENT A DOWNWARD PASSAGE APPEARS": GOTO 950
990 GOSUB 63300: GOTO 950
999 END
1000 GOSUB 60000
1010 PRINT "THE HOME OF ELFATILLA THE MATTAEWE"
1015 HPLOT 0,70 TO 140,0 TO 279,70: HPLOT 20,62 TO 20,159: HPLOT 260,62 TO 260,159: HPLOT 20,159 TO 60,100 TO 220,100 TO 260,159: HPLOT 60,100 TO 60,40 TO 220,40 TO 220,100
1017 SCALE= 5: DRAW 15 AT 120,75: SCALE= 1
1018 HPLOT 145,75 TO 145,50: HPLOT 120,63 TO 170,63
1020 IF TR(5) = 0 THEN PRINT "LOOK IT'S ELFATILLA'S TINY KEY"
1025 IF TR(5) = 0 THEN HCOLOR= 7: DRAW 4 AT 140,120: GOSUB 62510: XDRAW 4 AT 140,120: DRAW 4 AT 140,120: GOSUB 62510: XDRAW 4 AT 140,120:TR(5) = 1:PTS = PTS +10
1090 GOSUB 63000
1092 IF A$ = "U" THEN GOTO 900
1099 GOSUB 63300: GOTO 1090
1100 GOSUB 60000
1105 HPLOT 20,159 TO 279,30: DRAW 13 AT 1,1: DRAW 12: DRAW 16: DRAW 12
1110 PRINT "THE WALL REFLECTS ALL"
1120 DRAW 24 AT 70,70: DRAW 25 AT 80,65: DRAW 23 AT 95,63: DRAW 34 AT 105,55: DRAW 27 AT 110,53
1125 GOSUB 63000
1130 IF A$ = "E" THEN GOTO 300
1135 IF A$ = "W" THEN GOTO 1200
1140 IF A$ = "ZELOT" AND CH < >1 THEN PRINT "SINCE WHEN CAN THE ";CH$;" ENTER THAT WORD": GOTO 1125
1145 IF A$ = "ZELOT" AND IT(9) = 0 THEN G = 200:H = 130: GOSUB 63800: GOSUB 62500:PTS = PTS +10:GT = GT +10:IT(9) = 1: HCOLOR= 0: GOSUB 63800: PRINT "ZOUNDS! 10 GOLD COINS": GOTO 1125
1150 IF A$ = "READ" OR A$ = "TRANSLATE" THEN PRINT "IT APPEARS TO ME TO SAY TOLEZ": GOTO 1125
1155 IF A$ = "MAGIC" THEN PRINT "NOTHING HAPPENS": GOTO 1125
1160 IF A$ = "TOLEZ" THEN PRINT "SNEPPAH GNIHTON": GOTO 1125
1190 GOSUB 63300: GOTO 1125
1200 GOSUB 60000
1205 PRINT "THERE IS A LARGE DOOR HERE WITH A TINY LOCK"
1210 HPLOT 0,120 TO 279,120: HPLOT 100,120 TO 100,40 TO 180,40 TO 180,120: DRAW 12 AT 10,1: DRAW 16: DRAW 12: DRAW 16
1220 IF TR(6) = 0 THEN GOSUB 1291
1230 GOSUB 63000
1235 IF A$ = "W" AND TR(6) = 0 THEN PRINT "IT'S LOCKED": GOTO 1230
1240 IF A$ = "W" AND TR(6) = 1 THEN GOTO 1300
1245 IF A$ = "CAST" THEN PRINT "KNOCK OFF THE BIG STUFF ";NA$: GOTO 1230
1250 IF A$ = "E" THEN GOTO 1100
1255 IF A$ = "UNLOCK" AND TR(5) = 0 THEN PRINT "YOUR KEY IS WAY TOO BIG TO FIT": GOTO 1230
1260 IF A$ = "OPEN" THEN PRINT "IF ITS UNLOCKED ITS OPEN": GOTO 1230
1265 IF LEFT$(A$,6) = "UNLOCK" AND TR(5) = 1 THEN TR(6) = 1: HCOLOR= 0: GOSUB 1291: PRINT "ITS UNLOCKED": GOTO 1230
1290 GOSUB 63300: GOTO 1230
1291 HPLOT 101,50 TO 179,50: HPLOT 101,60 TO 179,60: HPLOT 101,110 TO 179,110: HPLOT 101,100 TO 179,100: HPLOT 120,55: HPLOT 140,55: HPLOT 160,55: HPLOT 120,105: HPLOT 140,105: HPLOT 160,105: HPLOT 110,80: RETURN
1299 END
1300 GOSUB 60000
1305 PRINT "YOU ARE ENTERING THE DOMAIN OF THE 3 NOSED ICKYUP"
1310 PRINT "PASSAGES LEAD WEST AND NORTH"
1320 DRAW 13 AT 260,1: DRAW 12: DRAW 16: DRAW 12: ROT= 32: DRAW 13 AT 60,158: DRAW 12: DRAW 16: DRAW 12
1325 ROT= 0: DRAW 36 AT 50,70: DRAW 35 AT 65,74: HPLOT 70,158 TO 200,50 TO 200,0: HPLOT 200,50 TO 277,50
1330 GOSUB 63000
1340 IF A$ = "N" THEN GOTO 1400
1350 IF A$ = "W" THEN GOTO 1600
1360 IF A$ = "E" THEN GOTO 1200
1390 GOSUB 63300: GOTO 1330
1400 GOSUB 60000
1405 PRINT "YOU ARE IN A ROOM FULL OF BOULDERS"
1410 HPLOT 0,120 TO 50,50 TO 220,50 TO 279,120: HPLOT 50,50 TO 50,0: HPLOT 220,50 TO 220,0
1420 HPLOT 107,50 TO 107,5 TO 152,5 TO 152,50
1425 IF R1 = 1 THEN DRAW 8 AT 120,48
1426 IF R2 = 1 THEN DRAW 8 AT 120,35
1427 IF R3 = 1 THEN DRAW 8 AT 120,20
1428 IF R4 = 1 THEN DRAW 9 AT 140,48: DRAW 15 AT 140,90
1429 IF R5 = 1 THEN DRAW 9 AT 140,35: DRAW 9 AT 140,20
1435 IF R1 = 0 THEN DRAW 8 AT 70,70
1436 IF R2 = 0 THEN DRAW 8 AT 240,120
1437 IF R3 = 0 THEN DRAW 8 AT 90,130
1438 IF R4 = 0 THEN DRAW 9 AT 140,90
1439 IF R5 = 0 THEN DRAW 9 AT 210,70: DRAW 9 AT 210,85
1445 GOSUB 63000
1450 IF A$ = "S" AND R5 = 0 THEN GOTO 1300
1452 IF A$ = "S" AND R5 = 1 THEN PRINT "SORRY BUT YOU'VE BLOCKED THE PASSAGE": GOTO 1445
1453 IF LEFT$(A$,4) = "CAST" AND R5 = 1 THEN FOR I = 1 TO 4: POKE 783,5: POKE 769,1: POKE 771,100: CALL 768: NEXT I:ST = ST -8: GOSUB 63650:R1 = 0:R2 = 0:R3 = 0:R4 = 0:R5 = 0: GOTO 1400
1454 IF A$ = "D" AND CH = 6 AND R4 = 1 THEN GOTO 1500
1455 IF A$ = "D" AND CH < >6 AND R4 = 1 THEN PRINT "I SAID A SMALL TUNNEL BIG FELLA": GOTO 1445
1460 IF LEFT$(A$,4) = "MOVE" OR LEFT$(A$,4) = "LIFT" OR LEFT$(A$,4) = "PUSH" THEN GOTO 1491
1470 GOSUB 63300: GOTO 1445
1485 TR(7) = 1: DRAW 9 AT 210,75: DRAW 8 AT 210,75: DRAW 9 AT 211,76:: GOSUB 62510: GOSUB 62510
1486 ROT= 0: HCOLOR= 0: DRAW 9 AT 210,75: DRAW 8 AT 210,75: DRAW 9 AT 211,76: HCOLOR= 3:PTS = PTS +25
1489 PRINT "YAHOO YOU JUST FOUND PRINCESS ZIT'S PEARL NECKLACE": GOTO 1445
1490 GOSUB 63300: GOTO 1445
1491 IF R1 = 0 THEN R1 = 1: XDRAW 8 AT 70,70: DRAW 8 AT 120,48: GOTO 1445
1492 IF R2 = 0 THEN R2 = 1: XDRAW 8 AT 240,120: DRAW 8 AT 120,35: GOTO 1445
1493 IF R3 = 0 THEN R3 = 1: XDRAW 8 AT 90,130: DRAW 8 AT 120,20: GOTO 1445
1494 IF R4 = 0 THEN R4 = 1: XDRAW 9 AT 140,90: DRAW 9 AT 140,48: DRAW 15 AT 140,90: PRINT "A SMALL DOWNWARD TUNNEL APPEARS": GOSUB 62510: GOTO 1445
1496 IF R5 = 0 THEN R5 = 1: XDRAW 9 AT 210,70: XDRAW 9 AT 210,85: DRAW 9 AT 140,35: DRAW 9 AT 140,20: IF TR(7) = 0 THEN GOTO 1485
1498 IF R5 = 1 THEN R5 = 0: HCOLOR= 0: XDRAW 9 AT 140,35: XDRAW 9 AT 140,20: HCOLOR= 3: GOTO 1439
1499 GOTO 1445
1500 GOSUB 60000
1505 HPLOT 120,0 TO 120,159: DRAW 12 AT 120,1: HPLOT 180,0 TO 180,159
1510 PRINT "THE ICKYUP DUG THIS HIDING PLACE"
1520 IF IT(10) = 0 THEN PRINT "NICE GOING YOU'VE 10 GOLD COINS"
1530 IF IT(10) = 0 THEN IT(10) = 1:G = 140:H = 120: GOSUB 63800: GOSUB 62500: HCOLOR= 0: GOSUB 63800:GT = GT +10:PTS = PTS +10
1540 GOSUB 63000
1545 IF A$ = "U" AND CH < >6 THEN PRINT "SORRY BIG FELLA": GOTO 1540
1550 IF A$ = "U" THEN GOTO 1400
1560 GOSUB 63300: GOTO 1540
1599 END
1600 GOSUB 60000
1601 ROT= 48
1605 FOR I = 1 TO 15: SCALE= I
1610 DRAW 25 AT 50,30 +(I *3): DRAW 25 AT 141,30 +(I *3): DRAW 25 AT 230,30 +(I *3): DRAW 25 AT 50,110 +(I *3): DRAW 25 AT 141,110 +(I *3): DRAW 25 AT 230,110 +(I *3)
1615 NEXT I
1620 PRINT "KINDA PRETTY DON'T YA THINK"
1630 GOSUB 63000
1640 IF A$ = "YES" THEN PRINT "THANK YOU": GOTO 1630
1650 IF A$ = "NO" THEN PRINT "COMPUTER PEOPLE AIN'T KNOWN FOR THIER CULTURE ANYWAYS": GOTO 1630
1660 IF A$ = "E" THEN GOTO 1300
1670 IF A$ = "W" THEN GOTO 1700
1680 GOSUB 63300: GOTO 1630
1698 NEXT
1699 END
1700 IF IT(6) = 1 AND IT(7) = 1 THEN GOTO 1720
1705 IF IT(7) = 1 AND IT(8) = 1 THEN GOTO 1720
1710 GOTO 1800
1720 IF IT(6) = 1 THEN IT(6) = 0
1725 IF IT(7) = 1 THEN IT(7) = 0
1730 IF IT(8) = 1 THEN IT(8) = 0
1750 TEXT : HOME : POKE -16300,0: POKE -16303,0
1755 PRINT "HELLO, I AM THE GAME WARDEN AND I SEE"
1760 PRINT "THAT YOU ARE OVER YOUR POSSESION LIMIT"
1770 PRINT "OF MUSHROOMS. I WILL TAKE THEM ALL BACK"
1780 PRINT "PLEASE BE MORE CAREFUL NEXT TIME."
1790 INPUT A$
1791 IF A$ = "W" THEN GOTO 1800
1792 IF A$ = "E" THEN GOTO 1600
1793 PRINT "ENTER E(EAST) OR W(WEST) ONLY"
1795 GOTO 1790
1800 GOSUB 60000
1810 PRINT "YOU ARE IN A NARROW CREVICE ABOVE A N/S HALLWAY TYPE CAVE. SOMETHING SLITHERED ALONG HERE RECENTLY.(DOWN IS ONEWAY)"
1820 DRAW 12 AT 70,1: DRAW 16: DRAW 12: ROT= 32: DRAW 16 AT 160,158: HPLOT 160,159 TO 235,0: HPLOT 110,159 TO 70,0
1870 GOSUB 63000
1872 IF A$ = "E" THEN GOTO 1600
1880 IF A$ = "D" THEN GOTO 800
1885 IF A$ = "W" THEN GOTO 1900
1890 GOSUB 63300: GOTO 1870
1900 GOSUB 60000
1910 PRINT "THE CREVICE IS WIDENING BUT THERE IS A HISSING SOUND COMING FROM THE WEST"
1921 DRAW 12 AT 70,1: DRAW 16: DRAW 12: ROT= 32: DRAW 12 AT 235,158: DRAW 16: DRAW 12: HPLOT 235,0 TO 235,159: HPLOT 70,159 TO 70,0
1930 ROT= 0: DRAW 36 AT 70,70: DRAW 35 AT 84,75: DRAW 37 AT 235,70: DRAW 35 AT 211,75
1990 GOSUB 63000
1993 IF A$ = "E" THEN GOTO 1800
1996 IF A$ = "W" THEN GOTO 2000
1998 GOSUB 63300: GOTO 1990
2000 GOSUB 60000
2005 PRINT "THE HALL OF SERPENTS!"
2010 HPLOT 50,159 TO 110,50 TO 110,0: HPLOT 230,159 TO 170,50 TO 170,0: HPLOT 110,50 TO 170,50
2020 DRAW 17 AT 50,70: DRAW 18 AT 230,70: HPLOT 110,50 TO 170,30
2025 IF OB(14) = 1 AND OB(15) = 1 THEN GOTO 2050
2030 IF OB(14) = 1 THEN GOTO 2040
2031 GOSUB 2092: HPLOT 125,60: GOSUB 2092: HPLOT 125,65: GOSUB 2092: ROT= 16: DRAW 4 AT 125,60: GOSUB 2092: SCALE= 2: DRAW 4 AT 125,60: GOSUB 2092: SCALE= 3: DRAW 4 AT 125,60: GOSUB 2092: XDRAW 4 AT 125,60: SCALE= 1: ROT= 0: DRAW 20 AT 125,60
2040 REM
2041 PRINT "SERPENT ATTACK! SERPENT ATTACK": FOR I = 1 TO 5: POKE 0,200: POKE 1,100: CALL 800: NEXT I
2044 GOSUB 2092: HPLOT 145,60: GOSUB 2092: HPLOT 145,65: GOSUB 2092: ROT= 16: DRAW 4 AT 145,60: GOSUB 2092: SCALE= 2: DRAW 4 AT 145,60: GOSUB 2092: SCALE= 3: DRAW 4 AT 145,60: GOSUB 2092: XDRAW 4 AT 145,60: SCALE= 1: ROT= 0:
2045 DRAW 21 AT 145,60
2046 GOSUB 2095
2050 GOSUB 63000
2052 IF A$ = "U" THEN GOTO 2200
2053 IF A$ = "N" THEN GOTO 2300
2055 IF A$ = "E" THEN GOTO 1900
2056 IF A$ = "W" AND OB(14) = 1 AND OB(15) = 1 THEN GOTO 2100
2060 IF LEFT$(A$,4) = "CAST" AND OB(14) = 0 THEN OB(14) = 1: GOSUB 2092: GOSUB 2092: GOSUB 2092: XDRAW 20 AT 125,60:ST = ST -8: GOSUB 63650: GOSUB 2095: GOTO 2050
2061 IF LEFT$(A$,4) = "CAST" AND OB(15) = 0 THEN OB(15) = 1: GOSUB 2092: GOSUB 2092: GOSUB 2092: XDRAW 21 AT 145,60:ST = ST -8: GOSUB 63650: GOSUB 2095: GOTO 2050
2062 IF A$ = "ATTACK" AND TR(4) = 0 OR A$ = "KILL" AND TR(4) = 0 OR A$ = "FIGHT" AND TR(4) = 0 THEN PRINT "YOU CAN'T KILL THE SERPENTS WITHOUT THE SCEPTOR": GOTO 2050
2064 IF A$ = "ATTACK" AND OB(14) = 0 OR A$ = "FIGHT" AND OB(14) = 0 OR A$ = "KILL" AND OB(14) = 0 THEN OB(14) = 1: GOSUB 2092: GOSUB 2092: GOSUB 2092: XDRAW 20 AT 125,60: GOSUB 2095: GOTO 2050
2065 IF A$ = "ATTACK" AND OB(15) = 0 OR A$ = "FIGHT" AND OB(15) = 0 OR A$ = "KILL" AND OB(15) = 0 THEN OB(15) = 1: GOSUB 2092: GOSUB 2092: GOSUB 2092: XDRAW 21 AT 145,60: GOSUB 2095: GOTO 2050
2089 GOSUB 2095
2090 GOSUB 63300: GOTO 2050
2092 POKE 783,2: POKE 769,1: POKE 771,100: CALL 768: RETURN
2095 IF OB(14) = 0 THEN XDRAW 20 AT 125,60: GOSUB 2092: DRAW 20 AT 125,120: GOSUB 2092: XDRAW 20 AT 125,120: GOSUB 2092: DRAW 20 AT 125,60: GOSUB 63650
2097 IF OB(15) = 0 THEN XDRAW 21 AT 145,60: GOSUB 2092: DRAW 21 AT 145,110: GOSUB 2092: XDRAW 21 AT 145,110: GOSUB 2092: DRAW 21 AT 145,60: GOSUB 63650
2098 IF OB(14) = 0 OR OB(15) = 0 THEN PRINT "YOUR STRENGTH IS DIMINISHING!!!!"
2099 RETURN
2100 GOSUB 60000
2105 PRINT "THE CREVICE HAS BEEN SEALED HERE. THERE IS A ONE WAY PASSAGE DOWN TO A MULTIPLE PASSAGE"
2110 HPLOT 0,159 TO 50,130 TO 50,0: HPLOT 50,120 TO 100,60 TO 100,0: HPLOT 101,50 TO 140,30 TO 140,0
2120 HPLOT 279,159 TO 230,130 TO 230,0: HPLOT 230,120 TO 190,70 TO 190,0: HPLOT 189,60 TO 140,30
2130 ROT= 16: DRAW 22 AT 141,5: POKE 0,250: POKE 1,50: CALL 800: XDRAW 22 AT 141,5: ROT= 0
2140 GOSUB 63000
2145 IF A$ = "E" THEN GOTO 2000
2146 IF A$ = "U" THEN GOTO 2200
2147 IF A$ = "N" THEN GOTO 2300
2150 IF A$ = "D" THEN GOTO 300
2155 IF A$ = "W" OR A$ = "N" THEN PRINT "BANG! YOU JUST BOUNCED OFF THE WALL": GOTO 2140
2160 IF A$ = "MAGIC" THEN HCOLOR= 0: HPLOT 189,60 TO 140,30: HPLOT 101,50 TO 140,30 TO 140,0: HCOLOR= 3: HPLOT 189,60 TO 101,50: PRINT "LOOK LOOK THE ICKYUP'S SECRET VAULT!": GOTO 2191
2162 IF A$ = "CAST" THEN HCOLOR= 0: HPLOT 189,60 TO 140,30: HPLOT 101,50 TO 140,30 TO 140,0: HCOLOR= 3: HPLOT 189,60 TO 101,50: PRINT "LOOK LOOK THE ICKYUP'S SECRET VAULT!": GOTO 2191
2190 GOSUB 63300: GOTO 2140
2191 IF TR(8) = 1 THEN GOTO 2140
2192 PRINT "YOU'RE AMAZIN YOU JUST FOUND THE ICKYUP'S RUBY TREASURE"
2193 FOR I = 0 TO 71 STEP 10: HCOLOR= 5: DRAW 15 AT 105 +I,45: NEXT I: FOR I = 0 TO 51 STEP 10: DRAW 15 AT 115 +I,40: NEXT I: FOR I = 0 TO 31 STEP 10: DRAW 15 AT 125 +I,35: NEXT I
2194 FOR I = 0 TO 11 STEP 10: DRAW 15 AT 135 +I,30: NEXT I
2196 GOSUB 62510: GOSUB 62500:PTS = PTS +25:TR(8) = 1
2197 FOR I = 0 TO 71 STEP 10: HCOLOR= 0: DRAW 15 AT 105 +I,45: NEXT I: FOR I = 0 TO 51 STEP 10: DRAW 15 AT 115 +I,40: NEXT I: FOR I = 0 TO 31 STEP 10: DRAW 15 AT 125 +I,35: NEXT I
2198 FOR I = 0 TO 11 STEP 10: DRAW 15 AT 135 +I,30: NEXT I: GOTO 2140
2200 GOSUB 10000
2205 GOSUB 63000
2210 IF A$ = "D" THEN GOTO 2000
2220 GOSUB 63300: GOTO 2205
2300 GOSUB 10000
2305 GOSUB 63000
2310 IF A$ = "S" THEN GOTO 2000
2320 GOSUB 63300: GOTO 2305
2400 GOSUB 60000
2405 HPLOT 10,0 TO 30,30 TO 30,0: HPLOT 30,25 TO 60,60 TO 60,0: HPLOT 60,50 TO 90,30 TO 90,0: HPLOT 90,20 TO 110,5 TO 110,0
2419 HPLOT 140,0 TO 140,40 TO 140,0: HPLOT 140,30 TO 160,80 TO 160,0: HPLOT 160,80 TO 200,30 TO 200,0: HPLOT 200,20 TO 220,5 TO 220,0
2420 HPLOT 240,0 TO 240,80 TO 279,80
2425 ROT= 48: DRAW 4 AT 130,60: DRAW 4 AT 125,63: DRAW 4 AT 135,63
2430 PRINT "THE PASSAGES HEAD DOWN, NORTH, AND WEST THERE ARE CLAW MARKS IN THE DIRT"
2440 GOSUB 63000
2450 IF A$ = "W" THEN GOTO 1100
2455 IF A$ = "N" AND IT(11) = 0 OR A$ = "N" AND IT(12) = 0 THEN GOTO 2500
2460 IF A$ = "N" THEN GOTO 2600
2470 IF A$ = "D" THEN GOTO 3400
2490 GOSUB 63300: GOTO 2440
2499 END
2500 GOSUB 60000
2502 PRINT "LYNXOR'S MYSTICAL AND POWERFUL PETS"
2510 DRAW 3 AT 50,100: DRAW 3 AT 230,100: HPLOT 20,159 TO 20,110 TO 70,110 TO 70,159: HPLOT 20,110 TO 40,90: HPLOT 70,110 TO 90,80 TO 62,80: HPLOT 90,80 TO 90,129 TO 70,159
2520 HPLOT 200,159 TO 200,110 TO 250,110 TO 250,159: HPLOT 250,110 TO 232,90: HPLOT 200,110 TO 180,80 TO 207,80: HPLOT 180,80 TO 180,129 TO 200,159
2525 IF IT(11) = 1 THEN GOSUB 2590
2540 IF IT(12) = 1 THEN GOSUB 2595
2550 GOSUB 63000
2555 IF A$ = "S" THEN GOTO 2400
2560 IF A$ = "N" AND IT(11) = 0 OR A$ = "N" AND IT(12) = 0 THEN GOTO 2598
2565 IF A$ = "MAGIC" AND IT(11) = 0 THEN GOSUB 2590:IT(11) = 1: GOTO 2550
2566 IF A$ = "FIGHT" AND IT(11) = 0 THEN GOSUB 2590:IT(11) = 1: GOTO 2550
2568 IF A$ = "N" THEN GOTO 2600
2570 IF LEFT$(A$,4) = "CAST" AND IT(12) = 0 THEN GOSUB 2595:IT(12) = 1: GOTO 2550
2589 GOSUB 63300: GOTO 2550
2590 HCOLOR= 2: ROT= 48: SCALE= 5
2591 DRAW 4 AT 70,110: GOSUB 2092: DRAW 4 AT 60,110: GOSUB 2092: DRAW 4 AT 50,110: GOSUB 2092: DRAW 4 AT 40,110: GOSUB 2092: DRAW 4 AT 30,110: GOSUB 2092: DRAW 4 AT 20,110
2592 GOSUB 2092: DRAW 4 AT 76,100: GOSUB 2092: DRAW 4 AT 82,90: GOSUB 2092: DRAW 4 AT 90,80
2593 DRAW 4 AT 78,80: HPLOT 64,0 TO 64,60: HPLOT 54,0 TO 54,52: GOSUB 2092: HPLOT 44,10 TO 44,58: HPLOT 34,20 TO 34,50: ROT= 0: SCALE= 1: HCOLOR= 3: RETURN
2595 HCOLOR= 0: ROT= 0: DRAW 3 AT 230,100: GOSUB 2092: ROT= 32: HCOLOR= 3:: DRAW 3 AT 230,20: GOSUB 2092: HCOLOR= 0: DRAW 3 AT 230,20: GOSUB 2092: HCOLOR= 3
2596 DRAW 3 AT 224,50: ROT= 0: RETURN
2598 HCOLOR= 6: SCALE= 3: DRAW 4 AT 110,80: GOSUB 2092: DRAW 4 AT 110,90: GOSUB 2092: DRAW 4 AT 110,100: GOSUB 2092: DRAW 4 AT 110,110: GOSUB 2092: HCOLOR= 0: DRAW 4 AT 110,80: DRAW 4 AT 110,90: DRAW 4 AT 110,100: DRAW 4 AT 110,110
2599 PRINT "LOOK OUT ";NA$;" YOU CAN'T GET BUY THEM": SCALE= 1: ROT= 0: HCOLOR= 3: GOTO 2550
2600 GOSUB 60000
2610 PRINT "EVER ONWARD THE CAVERNS GO"
2620 HPLOT 0,140 TO 120,50 TO 160,50 TO 279,140: HPLOT 120,50 TO 120,20 TO 160,20 TO 160,50: DRAW 12 AT 1,1: DRAW 12: DRAW 16 AT 155,1: DRAW 12
2630 DRAW 36 AT 20,70: DRAW 32 AT 35,70: DRAW 36 AT 50,50: DRAW 32 AT 65,50: DRAW 36 AT 80,35: DRAW 32 AT 95,35
2635 DRAW 37 AT 260,70: DRAW 32 AT 245,70: DRAW 37 AT 230,50: DRAW 32 AT 215,50: DRAW 37 AT 200,35: DRAW 32 AT 185,35
2650 GOSUB 63000
2660 IF A$ = "S" THEN GOTO 2400
2670 IF A$ = "N" THEN GOTO 2700
2690 GOSUB 63300: GOTO 2650
2700 GOSUB 60000
2705 PRINT "THERE IS A SLIGHT INCLINE HERE"
2710 HPLOT 279,100 TO 230,110 TO 230,159: HPLOT 230,120 TO 140,140 TO 140,159: HPLOT 140,145 TO 0,155
2720 HPLOT 0,70 TO 50,70 TO 50,150: HPLOT 50,70 TO 0,80: DRAW 13 AT 1,1: DRAW 13: DRAW 13
2730 DRAW 18 AT 230,70: DRAW 18 AT 155,85: DRAW 18 AT 100,100
2740 GOSUB 63000
2750 IF A$ = "S" THEN GOTO 2600
2760 IF A$ = "N" THEN GOTO 2800
2790 GOSUB 63300: GOTO 2740
2800 GOSUB 60000
2810 PRINT "PASSAGES LEAD NORTH AND WEST"
2820 HPLOT 140,0 TO 140,100 TO 100,50 TO 100,0: HPLOT 100,40 TO 40,0: HPLOT 140,100 TO 200,50 TO 200,0: HPLOT 200,40 TO 260,0
2830 GOSUB 63000
2835 IF A$ = "W" AND TR(11) = 0 THEN GOTO 4000
2840 IF A$ = "S" THEN GOTO 2700
2850 IF A$ = "W" THEN GOTO 4100
2860 IF A$ = "N" THEN GOTO 2900
2890 GOSUB 63300: GOTO 2830
2899 END
2900 GOSUB 60000
2910 HPLOT 0,100 TO 140,60 TO 140,0: HPLOT 279,50 TO 140,40: DRAW 17 AT 60,50
2920 PRINT "BEND AHEAD"
2950 GOSUB 63000
2960 IF A$ = "E" THEN GOTO 3000
2970 IF A$ = "S" THEN GOTO 2800
2980 GOSUB 63300: GOTO 2950
3000 GOSUB 60000
3010 HPLOT 0,159 TO 130,20 TO 130,10 TO 0,70: HPLOT 279,159 TO 140,20 TO 140,10 TO 279,70: HPLOT 130,20 TO 140,20: HPLOT 130,10 TO 140,10
3015 DRAW 12 AT 1,1: DRAW 16 AT 230,1
3020 PRINT "YIPES WHAT A LONG PASSAGE!"
3030 GOSUB 63000
3040 IF A$ = "E" THEN GOTO 3100
3050 IF A$ = "W" THEN GOTO 2900
3090 GOSUB 63300: GOTO 3030
3100 GOSUB 60000
3110 PRINT "THERE ARE PASSAGES NORTH AND EAST BUT EAST IS ONE WAY ONLY"
3120 HPLOT 140,0 TO 140,150 TO 200,100 TO 200,0: HPLOT 200,90 TO 260,30 TO 260,0: HPLOT 140,150 TO 80,70 TO 80,0: HPLOT 80,60 TO 20,20 TO 20,0
3130 DRAW 18 AT 120,50: DRAW 17 AT 160,55
3150 GOSUB 63000
3160 IF A$ = "E" THEN GOTO 200
3170 IF A$ = "N" THEN GOTO 3200
3175 IF A$ = "W" THEN GOTO 3000
3180 GOSUB 63300: GOTO 3150
3200 GOSUB 60000
3210 HPLOT 0,140 TO 220,60 TO 220,20 TO 278,20 TO 278,60 TO 220,60: HPLOT 278,60 TO 220,50: HPLOT 220,20 TO 30,0
3220 DRAW 17 AT 30,80: DRAW 17 AT 100,70
3230 PRINT "A SOUND OF VASTNESS COMES FORM AHEAD"
3240 IF TR(9) = 0 THEN PRINT "SOMEBODY LEFT 15 GOLD COINS HERE!!"
3250 IF TR(9) = 0 THEN G = 140:H = 120: GOSUB 63800: GOSUB 62500: HCOLOR= 0: GOSUB 63800:GT = GT +15:PTS = PTS +15:TR(9) = 1
3260 GOSUB 63000
3270 IF A$ = "S" THEN GOTO 3100
3280 IF A$ = "N" THEN GOTO 3300
3290 GOSUB 63300: GOTO 3260
3300 GOSUB 60000
3310 PRINT "THIS IS THE EDGE OF THE GREAT CLIFF OF DEARMIN"
3320 HPLOT 10,159 TO 40,120 TO 30,120 TO 90,70 TO 80,70 TO 120,30 TO 160,30 TO 200,70 TO 190,70 TO 240,120 TO 230,120 TO 270,159
3330 HPLOT 30,120 TO 30,132: HPLOT 80,70 TO 80,79: HPLOT 200,70 TO 200,80: HPLOT 240,120 TO 240,130
3340 GOSUB 63000
3350 IF A$ = "S" THEN GOTO 3200
3360 IF A$ = "JUMP" THEN GOTO 3400
3370 GOSUB 63300: GOTO 3340
3400 GOSUB 60000
3405 PRINT "THERE IS FRESH AIR COMING FROM BELOW"
3410 DRAW 13 AT 11,1: DRAW 13: DRAW 13
3420 DRAW 12 AT 5,65: DRAW 16: DRAW 12: DRAW 16: DRAW 16
3430 HPLOT 120,159 TO 135,110 TO 135,100 TO 145,100 TO 145,110 TO 160,159: HPLOT 135,110 TO 145,110
3440 GOSUB 63000
3450 IF A$ = "D" THEN GOTO 3500
3460 IF A$ = "U" THEN GOTO 2400
3470 GOSUB 63300: GOTO 3440
3500 GOSUB 60000
3505 PRINT "FROM THE NORTH SUNSHINE IS SEEPING IN"
3510 HPLOT 0,100 TO 70,100 TO 70,0: HPLOT 70,100 TO 70,110 TO 200,110 TO 200,0: HPLOT 200,100 TO 279,100
3520 HPLOT 120,110 TO 120,40 TO 160,40 TO 160,110
3530 IF TR(10) = 0 THEN GOSUB 3590
3540 GOSUB 63000
3545 IF A$ = "N" AND TR(10) = 0 THEN PRINT "THE DOOR IS LOCKED": GOTO 3540
3550 IF A$ = "N" THEN GOTO 3700
3555 IF A$ = "UNLOCK" THEN PRINT "THERE IS NO KEY FOR THIS DOOR": GOTO 3540
3557 IF A$ = "OPEN" THEN PRINT "ITS LOCKED": GOTO 3540
3560 IF A$ = "PRY" THEN PRINT "ITS NOT BUDGING": GOTO 3540
3562 IF A$ = "PICK" AND TR(10) = 0 THEN GOSUB 3595: GOTO 3540
3565 IF A$ = "U" THEN GOTO 3400
3570 IF LEFT$(A$,4) = "CAST" AND TR(10) = 0 THEN FOR I = 1 TO 3: GOSUB 2092: NEXT I: GOSUB 3595:ST = ST -3: GOSUB 63650: GOTO 3540
3589 GOSUB 63300: GOTO 3540
3590 HPLOT 121,50 TO 159,50: HPLOT 121,60 TO 159,60: HPLOT 121,100 TO 159,100: HPLOT 121,90 TO 159,90: HPLOT 130,55: HPLOT 140,55: HPLOT 150,55: HPLOT 130,95: HPLOT 140,95: HPLOT 150,95
3592 RETURN
3595 HCOLOR= 0: GOSUB 3590: HCOLOR= 3:G = 140:H = 70: GOSUB 63800: GOSUB 62500: GOSUB 62500: HCOLOR= 0: GOSUB 63800: HCOLOR= 3
3596 GT = GT +15:PTS = PTS +15:TR(10) = 1: GOTO 3540
3598 RETURN
3599 END
3700 TEXT : HOME : POKE -16300,0: POKE -16303,0
3710 PRINT TAB( 10)"SPECIAL JUNCTION #3": PRINT
3715 PRINT "DIRECTION PLACE"
3720 PRINT
3725 PRINT "S(SOUTH) LAND OF LYNXOR"
3730 PRINT "N(NORTH) OLDORF'S CASTLE"
3735 PRINT "W(WEST) SNOTGURGLE'S PALACE"
3740 PRINT "X(EXIT) END OF GAME"
3750 PRINT "NOTE:YOU MAY RETURN FROM END OF GAME"
3755 INPUT A$
3756 IF A$ = "S" THEN GOTO 3500
3757 IF A$ = "N" THEN GOTO 3765
3758 IF A$ = "W" THEN GOTO 3770
3760 IF A$ = "X" THEN GOTO 3780
3762 GOTO 3700
3765 PRINT CHR$(4);"BLOAD CHAIN,A520"
3767 CALL 520"WIZARD2"
3770 PRINT CHR$(4);"BLOAD CHAIN,A520"
3773 CALL 520"WIZARD3"
3780 PRINT CHR$(4);"BLOAD CHAIN,A520"
3783 CALL 520"WIZEND"
3799 END
4000 GOSUB 60000
4010 HPLOT 0,120 TO 279,120: HPLOT 50,120 TO 50,34 TO 230,34 TO 230,120
4020 FOR I = 53 TO 229 STEP 10: ROT= 16: GOSUB 2092: HCOLOR= 5: SCALE= 5: DRAW 4 AT I,35
4030 NEXT
4035 PRINT "THE ENTRANCE TO LYNXOR'S VAULT IS SEALED": PRINT
4040 GOSUB 63000
4045 IF A$ = "E" THEN GOTO 2800
4050 IF A$ = "W" THEN FOR I = 54 TO 229 STEP 10: GOSUB 2092: HCOLOR= 2: DRAW 4 AT I,35: NEXT I: GOTO 4020
4060 IF LEFT$(A$,4) = "CAST" THEN GOTO 4091
4090 GOSUB 63300: GOTO 4040
4091 FOR I = 1 TO 4
4092 SCALE= 1: ROT= I *16: HCOLOR= 3: GOSUB 2092
4093 DRAW 19 AT 140,70: NEXT I
4100 GOSUB 60000
4105 PRINT "LYNXOR'S VAULT!"
4110 HPLOT 0,120 TO 50,70 TO 230,70 TO 279,120: HPLOT 50,70 TO 50,0: HPLOT 230,70 TO 230,0
4120 IF TR(11) = 0 THEN PRINT "ITS LYNXOR'S TREASURE"
4130 IF TR(11) = 0 THEN GOSUB 4190: GOSUB 62500: GOSUB 62500: HCOLOR= 0: GOSUB 4190:TR(11) = 1:PTS = PTS +25
4150 GOSUB 63000
4155 IF A$ = "S" THEN GOTO 2800
4160 GOSUB 63300: GOTO 4150
4190 DRAW 15 AT 100,120: DRAW 15 AT 110,120:: DRAW 15 AT 120,120: DRAW 15 AT 105,115: DRAW 15 AT 115,115: DRAW 15 AT 110,110
4191 DRAW 9 AT 100,120: RETURN
4192 RETURN
4199 END
10000 GOSUB 60000
10005 HPLOT 0,120 TO 140,50 TO 279,120: HPLOT 140,50 TO 140,0
10010 DRAW 13 AT 1,1: DRAW 16: DRAW 12 AT 141,1: DRAW 16
10020 ROT= 32: DRAW 12 AT 270,158: DRAW 16: DRAW 12: DRAW 13
10030 PRINT "LOOKS LIKE A DEAD END ";NA$
10099 RETURN
60000 REM BORDER
60004 POKE 34,20: HOME : SCALE= 1: ROT= 0:I = 0:X = 0
60010 HGR : HCOLOR= 3:: HPLOT 0,0 TO 0,159: HPLOT 0,0 TO 0,159: HPLOT 0,0 TO 279,0: HPLOT 0,159 TO 279,159: HPLOT 279,0 TO 279,159: RETURN
62000 PRINT CHR$(4);"OPEN WIZ.SAVE"
62005 PRINT CHR$(4);"WRITE WIZ.SAVE"
62010 PRINT MOVE: PRINT PTS: PRINT ST: PRINT CH: PRINT CH$: PRINT GT
62015 FOR I = 1 TO 15: PRINT OB(I): NEXT I
62016 FOR I = 1 TO 10: PRINT GL(I): NEXT I
62020 FOR I = 1 TO 6: PRINT C1$(I): NEXT I
62025 FOR I = 1 TO 4: PRINT C2$(I): NEXT I
62030 FOR I = 1 TO 4: PRINT C3$(I): NEXT I
62035 FOR I = 1 TO 5: PRINT C4$(I): NEXT I
62036 FOR I = 1 TO 15: PRINT IT(I): PRINT TR(I): NEXT I
62040 PRINT C1: PRINT C2: PRINT C3: PRINT C4: PRINT C5: PRINT C6: PRINT C7
62042 PRINT GAME: PRINT PILL: PRINT L1: PRINT L2: PRINT L3: PRINT L4: PRINT L5: PRINT MX
62043 PRINT R1: PRINT R2: PRINT R3: PRINT R4: PRINT R5: PRINT R6
62045 PRINT CHR$(4);"CLOSE WIZ.SAVE"
62050 END
62055 PRINT "DO YOU WANT TO SAVE THIS GAME?? Y/N"
62060 INPUT A$
62065 IF A$ < >"Y" AND A$ < >"N" THEN GOTO 62055
62070 IF A$ = "Y" THEN GOTO 62000
62073 PRINT "YOUR SCORE WAS ";PTS;" THIS RATES YOU AS A ";
62075 IF PTS >260 THEN PRINT "GRAND POOBAH WIZARD": GOTO 62199
62076 IF PTS >200 THEN PRINT "GENIUS WIZARD": GOTO 62199
62077 IF PTS >150 THEN PRINT "EXPIERENCED WIZARD": GOTO 62199
62078 IF PTS >70 THEN PRINT "LEARNING WIZARD": GOTO 62199
62079 PRINT "NOVICE WIZARD"
62199 END
62500 FOR I = 1 TO 4: FOR X = 1 TO 5: POKE 0,I +X *15: POKE 1,20: CALL 800: NEXT X: NEXT I: RETURN
62510 FOR I = 1 TO 4: FOR X = 1 TO 5: POKE 0,200 +(X *5): POKE 1,50: CALL 800: NEXT X: NEXT I: RETURN
62530 END
62550 END
63000 INPUT A$
63005 IF A$ = "C" THEN GOSUB 63400: POKE 34,20: HOME : POKE -16304,0: GOTO 63000
63010 IF A$ = "QUIT" OR A$ = "SAVE" OR A$ = "STOP" OR A$ = "END" THEN GOTO 62055
63011 IF LEFT$(A$,3) = "EAT" AND IT(6) = 1 THEN RT = 99: GOSUB 63400:IT(6) = 2: GOTO 63020
63012 IF LEFT$(A$,3) = "EAT" AND IT(7) = 1 THEN RT = 99: GOSUB 63400:IT(7) = 2: GOTO 63020
63013 IF LEFT$(A$,3) = "EAT" AND IT(8) = 1 THEN RT = 99: GOSUB 63400:IT(8) = 2: GOTO 63020
63015 IF A$ < >"" THEN GOTO 63135
63020 TEXT : HOME : POKE -16300,0: POKE -16303,0
63025 PRINT TAB( 15)"POINTS =";PTS
63030 PRINT TAB( 15)"MOVES =";MOVE
63035 PRINT TAB( 15)"STRENGTH=";ST
63040 PRINT TAB( 15)"CHAR =";CH$
63045 PRINT "YOU ARE CARRYING:": PRINT
63050 IF GT >0 THEN PRINT GT;" GOLD COINS"
63060 IF IT(5) = 1 THEN PRINT "VALUABLE BOOK"
63065 IF IT(1) = 1 THEN PRINT "POWERFUL SWORD"
63070 IF IT(2) = 1 THEN PRINT "SKELETON KEY"
63075 IF IT(3) = 1 THEN PRINT "OLDORF'S RING"
63077 IF IT(6) = 1 THEN PRINT "1ST MAGIC MUSHROOM"
63078 IF IT(7) = 1 THEN PRINT "2ND MAGIC MUSHROOM"
63079 IF IT(8) = 1 THEN PRINT "3RD MAGIC MUSHROOM"
63080 VTAB (7): HTAB (20)
63085 HTAB (20): IF TR(1) = 1 THEN PRINT "VALUABLE CROSS"
63090 HTAB (20): IF TR(2) = 1 THEN PRINT "LARGE DIAMOND"
63095 HTAB (20): IF TR(3) = 1 THEN PRINT "GOLD BAR"
63100 HTAB (20): IF TR(4) = 1 THEN PRINT "OXYX'S SCEPTOR"
63101 HTAB (20): IF TR(5) = 1 THEN PRINT "TINY KEY"
63102 HTAB (20): IF TR(8) = 1 THEN PRINT "ICKYUP'S RUBY FORTUNE"
63103 HTAB (20): IF TR(7) = 1 THEN PRINT "ZIT'S NECKLACE"
63104 HTAB (20): IF TR(11) = 1 THEN PRINT "LYNXOR'S TREASURE"
63105 HTAB (1): POKE 34,21: VTAB (22)
63110 INPUT A$
63115 IF A$ = "QUIT" OR A$ = "SAVE" OR A$ = "STOP" OR A$ = "END" THEN GOTO 62055
63120 POKE 34,20: HOME
63125 POKE -16304,0
63130 GOTO 63000
63135 MOVE = MOVE +1
63140 IF LEFT$(A$,4) = "CAST" AND CH < >7 THEN PRINT "THAT IS NOT WITHIN THE ";CH$;"'S POWER": GOTO 63000
63145 IF LEFT$(A$,5) = "MAGIC" AND CH < >5 THEN PRINT "THAT IS NOT WITHIN THE ";CH$;"'S POWER": GOTO 63000
63150 FOR I = 1 TO 6: IF LEFT$(A$,4) = C1$(I) AND CH < >1 THEN GOTO 63195
63155 NEXT I
63160 FOR I = 1 TO 4: IF LEFT$(A$,4) = C2$(I) AND CH < >2 THEN GOTO 63195
63165 NEXT I
63170 FOR I = 1 TO 4: IF LEFT$(A$,4) = C3$(I) AND CH < >3 THEN GOTO 63195
63175 NEXT I
63180 FOR I = 1 TO 5: IF LEFT$(A$,4) = C4$(I) AND CH < >4 THEN GOTO 63195
63185 NEXT I
63190 RETURN
63195 PRINT "THAT IS NOT WITHIN THE ";CH$;"'S POWER": GOTO 63000
63300 IF LEN(A$) = 1 THEN PRINT "CHOOSE ANOTHER DIRECTION": RETURN
63320 IF LEFT$(A$,3) = "GET" THEN PRINT "DON,T BE RIDICULOUS": RETURN
63330 PRINT "I CAN'T DO THAT HERE ";NA$: RETURN
63400 TEXT : HOME : POKE -16300,0: POKE -16303,0: PRINT TAB( 15)"POINTS ="PTS
63410 PRINT TAB( 15)"MOVES =";MOVE
63420 PRINT TAB( 15)"STRENGTH=";ST
63430 PRINT TAB( 15)"CHAR =";CH$
63440 PRINT
63450 PRINT TAB( 15)"1.CLERIC ";C1
63460 PRINT TAB( 15)"2.THIEF ";C2
63470 PRINT TAB( 15)"3.GLADIATOR ";C3
63480 PRINT TAB( 15)"4.STRONGMAN ";C4
63490 PRINT TAB( 15)"5.MAGICIAN ";C5
63500 PRINT TAB( 15)"6.ELF ";C6
63510 PRINT TAB( 15)"7.WIZARD ";C7
63520 PRINT
63530 IF CH$ = "????" THEN PRINT "YOU MUST CHOOSE A CHARACTER TO START AS"
63540 PRINT "WHAT CHARACTER DO YOU WISH TO CHANGE TO?": PRINT " ENTER 1 THRU 7 ONLY C/R=RETURN"
63550 INPUT A$:CK = VAL(A$): IF A$ = "" AND CH$ < >"????" THEN RETURN
63560 IF CK <1 OR CK >7 THEN PRINT "I DON,T SEE A ";A$;" CHOICE": CALL 65338: CALL 65338: CALL 65338: FOR X = 1 TO 1000: NEXT : GOTO 63400
63565 CH = CK
63566 IF RT = 99 THEN GOTO 63950: REM MUSHROOM
63570 IF CH = 1 AND C1 < >0 THEN C1 = C1 -1:CH$ = "CLERIC": GOTO 63650
63580 IF CH = 2 AND C2 < >0 THEN C2 = C2 -1:CH$ = "THIEF": GOTO 63650
63590 IF CH = 3 AND C3 < >0 THEN C3 = C3 -1:CH$ = "GLADIATOR": GOTO 63650
63600 IF CH = 4 AND C4 < >0 THEN C4 = C4 -1:CH$ = "STRONGMAN": GOTO 63650
63610 IF CH = 5 AND C5 < >0 THEN C5 = C5 -1:CH$ = "MAGICIAN": GOTO 63650
63620 IF CH = 6 AND C6 < >0 THEN C6 = C6 -1:CH$ = "ELF": GOTO 63650
63630 IF CH = 7 AND C7 < >0 THEN C7 = C7 -1:CH$ = "WIZARD": GOTO 63650
63640 PRINT "YOU HAVE USED UP THAT GUY!!": CALL 65338: CALL 65338: CALL 65338: FOR I = 1 TO 1000: NEXT : GOTO 63400
63650 ST = ST -2: IF ST <1 THEN GOTO 63700
63660 RETURN
63700 REM
63710 PRINT "YOU ARE TOO WEAK TO CONTINUE"
63720 PRINT "THIS WILL BE YOUR FINAL RESTING PLACE"
63730 PRINT "GAME OVER!! STRENGTH = 000": END
63800 HPLOT 1 +G,0 +H TO 5 +G,0 +H TO 5 +G,15 +H TO 1 +G,15 +H TO 1 +G,0 +H: HPLOT 1 +G,3 +H TO 5 +G,3 +H: HPLOT 1 +G,6 +H TO 5 +G,6 +H: HPLOT 1 +G,10 +H TO 5 +G,10 +H: RETURN
63900 REM TONES
63910 FOR I = 1 TO 22: READ A: POKE 767 +I,A: NEXT
63920 FOR I = 1 TO 19: READ A: POKE 799 +I,A: NEXT
63925 RETURN
63930 DATA 160,14,162,00,138,24,233,01,208,252,141,48,192,232,224,140,208,242,136,208,237,96
63940 DATA 173,48,192,136,208,4,198,1,240,8,202,208,246,166,0,76,32,03,96
63950 IF CH = 1 THEN CH$ = "CLERIC"
63952 IF CH = 2 THEN CH$ = "THIEF"
63954 IF CH = 3 THEN CH$ = "GLADIATOR"
63956 IF CH = 4 THEN CH$ = "STRONGMAN"
63958 IF CH = 5 THEN CH$ = "MAGICIAN"
63960 IF CH = 6 THEN CH$ = "ELF"
63962 IF CH = 7 THEN CH$ = "WIZARD"
63964 RT = 00: GOTO 63650
Text found in Wizard_I_1980_Highlands_Computer_Services.do/WIZDIM.bas:
10 DIM C1$(6): DIM C2$(4): DIM C3$(4): DIM C4$(5)
20 DIM OB(15): DIM GL(10): DIM IT(15): DIM TR(15)
30 FOR I = 1 TO 6: READ A$:C1$(I) = A$: NEXT
40 FOR I = 1 TO 4: READ A$:C2$(I) = A$: NEXT
50 FOR I = 1 TO 4: READ A$:C3$(I) = A$: NEXT
60 FOR I = 1 TO 5: READ A$:C4$(I) = A$: NEXT
70 FOR I = 1 TO 22: READ A: POKE 767 +I,A: NEXT
80 FOR I = 1 TO 19: READ A: POKE 799 +I,A: NEXT
90 DATA "READ","DECI","TRAN","DECO","SPEA","LIST"
100 DATA "PICK","UNLO","OPEN","PRY "
110 DATA "ATTA","KILL","FIGH","PUNC"
120 DATA "LIFT","PUSH","MOVE","BREA","SMAS"
130 DATA 160,14,162,00,138,24,233,01,208,252,141,48,192,232,224,140,208,242,136,208,237,96
140 DATA 173,48,192,136,208,4,198,1,240,8,202,208,246,166,0,76,32,03,96
150 POKE 232,00: POKE 233,12
160 POKE 34,20: HOME
170 PRINT CHR$(4);"BLOAD WIZ.SHAPES,A3072"
180 POKE 232,00: POKE 233,12
190 TEXT : HOME
210 ST = 100:CH$ = "????":CH = 0
220 C1 = 5:C2 = 5:C3 = 5:C4 = 5:C5 = 5:C6 = 5:C7 = 5
230 PRINT "HELLO, WHAT IS YOUR NAME?"
240 INPUT NA$: IF LEN(NA$) >10 THEN NA$ = LEFT$(NA$,10)
250 HOME : PRINT "IS THIS A OLD OR NEW GAME? ENTER O OR N"
260 INPUT A$: IF A$ < >"O" AND A$ < >"N" THEN GOTO 250
270 IF A$ = "O" THEN GOSUB 61000
280 PRINT CHR$(4);"BLOAD CHAIN,A520"
285 IF GAME = 0 THEN CALL 520"WIZARD1"
286 IF GAME = 2 THEN CALL 520"WIZARD2"
287 IF GAME = 3 THEN CALL 520"WIZARD3"
288 IF GAME = 4 THEN CALL 520"WIZARD4"
289 PRINT "YOU BETTER REBOOT AND START OVER"
300 END
61000 PRINT CHR$(4);"OPEN WIZ.SAVE"
61005 PRINT CHR$(4);"READ WIZ.SAVE"
61010 INPUT MOVE: INPUT PTS: INPUT ST: INPUT CH: INPUT CH$: INPUT GT
61015 FOR I = 1 TO 15: INPUT OB(I): NEXT I
61016 FOR I = 1 TO 10: INPUT GL(I): NEXT I
61020 FOR I = 1 TO 6: INPUT C1$(I): NEXT I
61025 FOR I = 1 TO 4: INPUT C2$(I): NEXT I
61030 FOR I = 1 TO 4: INPUT C3$(I): NEXT I
61035 FOR I = 1 TO 5: INPUT C4$(I): NEXT I
61036 FOR I = 1 TO 15: INPUT IT(I): INPUT TR(I): NEXT I
61040 INPUT C1: INPUT C2: INPUT C3: INPUT C4: INPUT C5: INPUT C6: INPUT C7
61044 INPUT GAME: INPUT PILL: INPUT L1: INPUT L2: INPUT L3: INPUT L4: INPUT L5: INPUT MX: INPUT R1: INPUT R2: INPUT R3: INPUT R4: INPUT R5: INPUT R6
61045 PRINT CHR$(4);"CLOSE WIZ.SAVE"
61050 RETURN
Text found in Wizard_I_1980_Highlands_Computer_Services.do/WIZEND.bas:
100 GOSUB 5000
110 GOSUB 1000
120 PRINT : PRINT "HIT ANY KEY TO CONTINUE"
130 GET A$
140 GOSUB 8000
145 GOSUB 9000
150 INPUT "HIT ANY KEY TO CONTINUE";A$
500 TEXT : HOME : POKE -16300,0: POKE -16303,0: PRINT TAB( 10)"SPECIAL JUNCTION #4"
510 PRINT
520 PRINT "DIRECTION LOCATION"
521 PRINT
525 PRINT "R(REPEAT) REVIEW STATUS AGAIN"
530 PRINT "Q(QUIT) QUIT GAME NOW"
540 PRINT "S(SAVE) SAVE GAME NOW"
550 PRINT "E(EAST) OLDORF'S CASTLE"
560 PRINT "W(WEST) SNOTGURGLE'S PALACE"
570 PRINT "D(DOWN) LAND OF LYNXOR"
600 INPUT A$
610 IF A$ = "Q" THEN GOTO 62055
620 IF A$ = "R" THEN GOTO 100
630 IF A$ = "S" THEN GOTO 62000
640 IF A$ = "E" THEN GOTO 700
650 IF A$ = "W" THEN GOTO 800
660 IF A$ = "D" THEN GOTO 900
670 GOTO 500
700 PRINT CHR$(4);"BLOAD CHAIN,A520"
710 CALL 520"WIZARD2"
800 PRINT CHR$(4);"BLOAD CHAIN,A520"
810 CALL 520"WIZARD3"
900 PRINT CHR$(4);"BLOAD CHAIN,A520"
910 CALL 520"WIZARD4"
999 END
1000 PRINT "YOUR SCORE WAS ";PTS;" THIS RATES YOU AS A"
1005 IF PTS >299 THEN PRINT "GRAND EXALTED WHIZ BANG ALL TIME POOBAH WIZARD AND A NICE PERSON.": PRINT "YOU FINALLY WON ";NA$: GOTO 1060
1010 IF PTS >260 THEN PRINT "GRAND POOBAH WIZARD": GOTO 1060
1020 IF PTS >200 THEN PRINT "GENIUS WIZARD": GOTO 1060
1030 IF PTS >150 THEN PRINT "EXPIERENCED WIZARD": GOTO 1060
1040 IF PTS >70 THEN PRINT "LEARNING WIZARD": GOTO 1060
1050 PRINT "NOVICE WIZARD"
1060 RETURN
5000 TEXT : HOME : POKE -16300,0: POKE -16303,0: PRINT TAB( 15)"POINTS ="PTS
5010 PRINT TAB( 15)"MOVES =";MOVE
5020 PRINT TAB( 15)"STRENGTH=";ST
5030 PRINT TAB( 15)"CHAR =";CH$
5040 PRINT
5050 PRINT TAB( 15)"1.CLERIC ";C1
5060 PRINT TAB( 15)"2.THIEF ";C2
5070 PRINT TAB( 15)"3.GLADIATOR ";C3
5080 PRINT TAB( 15)"4.STRONGMAN ";C4
5090 PRINT TAB( 15)"5.MAGICIAN ";C5
5100 PRINT TAB( 15)"6.ELF ";C6
5110 PRINT TAB( 15)"7.WIZARD ";C7
5120 PRINT
5130 RETURN
8000 TEXT : HOME : POKE -16300,0: POKE -16303,0
8010 PRINT TAB( 15)"POINTS =";PTS
8020 PRINT TAB( 15)"MOVES =";MOVE
8030 PRINT TAB( 15)"STRENGTH=";ST
8050 PRINT "YOU ARE CARRYING:": PRINT
8060 IF GT >0 THEN PRINT GT;" GOLD COINS"
8070 IF IT(5) = 1 THEN PRINT "VALUABLE BOOK"
8080 IF IT(1) = 1 THEN PRINT "POWERFUL SWORD"
8090 IF IT(2) = 1 THEN PRINT "SKELETON KEY"
8100 IF IT(3) = 1 THEN PRINT "OLDORF'S RING"
8110 IF IT(6) = 1 THEN PRINT "1ST MAGIC MUSHROOM"
8120 IF IT(7) = 1 THEN PRINT "2ND MAGIC MUSHROOM"
8130 IF IT(8) = 1 THEN PRINT "3RD MAGIC MUSHROOM"
8150 IF TR(1) = 1 THEN PRINT "VALUABLE CROSS"
8160 IF TR(2) = 1 THEN PRINT "LARGE DIAMOND"
8170 IF TR(3) = 1 THEN PRINT "GOLD BAR"
8180 IF TR(4) = 1 THEN PRINT "OXYX'S SCEPTOR"
8190 IF TR(5) = 1 THEN PRINT "TINY KEY"
8200 IF TR(8) = 1 THEN PRINT "ICKYUP'S FORTUNE"
8210 IF TR(7) = 1 THEN PRINT "ZIT'S NECKLACE"
8220 IF TR(11) = 1 THEN PRINT "LYNXOR'S TREASURE"
8240 RETURN
8250 IF A$ = "QUIT" OR A$ = "SAVE" OR A$ = "STOP" OR A$ = "END" THEN GOTO 62055
8260 POKE 34,20: HOME
8270 POKE -16304,0
8280 GOTO 63000
8290 MOVE = MOVE +1
8300 RETURN
9000 VTAB (4): HTAB (20)
9010 PRINT "YOU ARE MISSING :": PRINT
9020 HTAB (20): PRINT 55 -GT;" GOLD COINS"
9030 HTAB (20): IF IT(5) = 0 THEN PRINT "VALUABLE BOOK"
9040 HTAB (20): IF IT(1) = 0 THEN PRINT "POWERFUL SWORD"
9050 HTAB (20): IF IT(2) = 0 THEN PRINT "SKELETON KEY"
9060 HTAB (20): IF IT(3) = 0 THEN PRINT "OLDORF'S RING"
9100 HTAB (20): IF TR(1) = 0 THEN PRINT "VALUABLE CROSS"
9110 HTAB (20): IF TR(2) = 0 THEN PRINT "LARGE DIAMOND"
9120 HTAB (20): IF TR(3) = 0 THEN PRINT "GOLD BAR"
9130 HTAB (20): IF TR(4) = 0 THEN PRINT "OXYX'S SCEPTOR"
9140 HTAB (20): IF TR(5) = 0 THEN PRINT "TINY KEY"
9150 HTAB (20): IF TR(8) = 0 THEN PRINT "ICKYUP'S FORTUNE"
9160 HTAB (20): IF TR(7) = 0 THEN PRINT "ZIT'S NECKLACE"
9170 HTAB (20): IF TR(11) = 0 THEN PRINT "LYNXOR'S TREASURE"
9990 HTAB (1): POKE 34,21: VTAB (22)
9999 RETURN
62000 PRINT CHR$(4);"OPEN WIZ.SAVE"
62005 PRINT CHR$(4);"WRITE WIZ.SAVE"
62010 PRINT MOVE: PRINT PTS: PRINT ST: PRINT CH: PRINT CH$: PRINT GT
62015 FOR I = 1 TO 15: PRINT OB(I): NEXT I
62016 FOR I = 1 TO 10: PRINT GL(I): NEXT I
62020 FOR I = 1 TO 6: PRINT C1$(I): NEXT I
62025 FOR I = 1 TO 4: PRINT C2$(I): NEXT I
62030 FOR I = 1 TO 4: PRINT C3$(I): NEXT I
62035 FOR I = 1 TO 5: PRINT C4$(I): NEXT I
62036 FOR I = 1 TO 15: PRINT IT(I): PRINT TR(I): NEXT I
62040 PRINT C1: PRINT C2: PRINT C3: PRINT C4: PRINT C5: PRINT C6: PRINT C7
62042 PRINT GAME: PRINT PILL: PRINT L1: PRINT L2: PRINT L3: PRINT L4: PRINT L5: PRINT MX
62043 PRINT R1: PRINT R2: PRINT R3: PRINT R4: PRINT R5: PRINT R6
62045 PRINT CHR$(4);"CLOSE WIZ.SAVE"
62050 GOTO 100
62055 PRINT "DO YOU WANT TO SAVE THIS GAME?? Y/N"
62060 INPUT A$
62065 IF A$ < >"Y" AND A$ < >"N" THEN GOTO 62055
62070 IF A$ = "Y" THEN GOTO 62000
62530 END
62550 END
- Addeddate
- 2014-06-12 22:39:30
- Emulator
- apple2e
- Emulator_ext
- do
- Identifier
- a2_Wizard_I_1980_Highlands_Computer_Services
- Scanner
- Internet Archive Python library 0.6.5
comment
Reviews
400 Views
1 Favorite
DOWNLOAD OPTIONS
IN COLLECTIONS
The Apple II Library: Games The Software Library: Apple Computer Software Library The Emulation StationUploaded by Jason Scott on